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ABSIRACI 



This paper describes a proposal for a revised Ccicpiler 
Honitor System II (CfiS-2) . Primary emphasis is placed on 
design improvements to the CMS-2 compiler and language. 
Changes tc the Monitpr and Librarian which support the above 
improvements are disc^ssed or implied where appropriate. A 
new concept is proposed, called mult?.- level programming, 
which allows the sys±em designer to define the levels of 
language constructs which are appropriate for the various 
•types of program modules in a large self-contained software 
system. The approach taken is to design a language and 
compiler- monitor system (CMS-2RS) which will facilitate the 
multi-level programming concept and the top-down programming 
method of software engineering in a production library 
environment. 
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I 



INTSODUCTION 



Ihe origins and design capabilities of the CMS-2 System 
must be explored before proposing any steps toward a revised 
language and compiler. This section describes the history 
of CMS-2 and the goals and objectives of this paper. The 
CMS-2 System and language are briefly described in Section 
II. Section III describes the revised language and compiler 
which will be called CMS-2SS. In Section IV, a detailed 
discussion of SLB(1) grammars, parsing algorithms, and 
CMS-2fiS language analysis is provided. Section V describes 
the first pass of the CMS-2ES compiler and offers recommen- 
dations for intermediate language and second. pass designs. 
Finally, the thesis conclusions are presented in Section VI. 

A. BACKGSOOND 

Compiler Monitor System II (CMS-2) is an integrated 
group of computer program modules which comprise a Monitor 
System (MS-2) and a Compiler System (CMS-2) . The Monitor 
syst em supervises the compiling, library, and loading 
processes. The Compiler System translates CMS-2 language 
source code into object code for any one of five target com- 
puter systems. The following sections provide a historical 
background of the CMS-2 System and language. 

1. Hisfory of Compiler Monitor System II (CMS-2) 

The primary reason for developing the CMS-2 System 
resulted in large part from the decision to develop the Navy 
AN/UYK-7 third generation computer. The two Systems devel- 
oped were designed to be hosted in the ONIVAC CP-642B and 
AN/UYK-7 computers. The CP— 642B version generates object 
code for those two computers, as well as the Litton L-304, 
DNIVAC-1830A, and UNIV AC-12 18/1219 computers. 

The CMS-2 System was built by Computer Sciences Corp- 
oration under contract to Fleet Combat Direction Systems 
Support Activity, Pacific (FCDSSAPAC) , in San Diego, Cali- 
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fornia. FCDSSAPAC provides System production, maintenance, 
and support services for all Navy and contractor activities 
involved in Command and Control Systems software development. 

2. History of CMS-2 language 

The CMS-2 language extends the capabilities of 
Compiler System-1 language (CS-1) and includes seme of the 
features of FOHTBAN, JOVIAL, and FL/I . CHS-2 language 
capabilities were implemented specifically for Command 
and Control Communications problems which include internal 
and external message processing, table update and search, 
coordinate conversion, transcendental and hypertclic func- 
tions and data display processing requirements. The language 
was initially implemented in 1969 and is now the Navy standard 
for all Command and Control systems applications . 

B. GOALS AND OBJECTIVES 

This section describes the thesis objectives and the 
project goals to implement and validate those objectives. 

1. Thesis Objectives 

The CMS-2 System and Language were specifically 
developed to provide a high level language processor system 
for building and maintaining deliverable computer programs 
from a production library. In its current form, the CMS-2 
System and language are in large part capable of accomplish- 
ing that requirement, but not without some inefficiencies 
and limitations in the System, as well as redundancies, 
ambiguities,, and limitations in the language. It is with 
these deficiencies in mind that the following objectives 
are defined. 

a. Determine what ambiguities, redundancies, and 
limitations exist in the CMS-2 program, data, and control 
structures, and define the necessary structure changes to 
correct them. 

b. Develop an unambiguous Backus-Naur form (BNF) 
description of the proposed language, as an SLE(1) Context 
Free grammar, that is appropriate to automated compiler 
construction . 
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c* Determine if an automatic SLR(1) grammar 
analysis and parsing tatle generation system can te applied 
to the proposed language and system to simplify compiler 
design and maintenance. 

d. Determine what fundamental changes need to be 
made to the language and system to support the structured 
programming concept in a modular library environment. 

e. Determine if the CMS-2 language can be seg- 
mented to allow design and implementation of a modular 
compiler, thus allowing ease of future language extension 
and maintenance. 

2. Project Goals 

a. Produce an operational first pass lexical 
scanner and syntax analyzer that will implement and vali- 
date the above thesis objectives. 

b. Design an intermediate language (IL) that can be 
used by the second pass of the compiler to generate optimized 
object code for either a single or multiple address target 
computer. 
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II. CflS~2 SYSTEM AND LANGDJ^GE DESIGN 



This section describes the CMS-2 System including the 
Monitor, Compiler, Librarian, Loader, Assembler, Flowcharter 
and Tape Utility. Additionally, program, header, data and 
control structures of the CMS-2 language are described. 

A. CMS-2 SYSTEM DESIGN 

The CMS-2 System consists of the MS-2 Monitor and sub- 
ordinate systems whose operations are controlled by the 
monitor program. This section describes the CMS-2 System 
as presented by .references 1, 2, and 3. The CMS-2 Systems 
include the following. 

1. MS-2 Monitor System 

The MS-2 Monitor System is a batch-processing oper- 
ating system designed to control execution of its subsid- 
iary components and user jobs being run on the computer. 

The monitor provides the environmental interfaces necessary 
for all programs running under its control. These inter- 
faces include a job control card processor, an interrupt 
processor, an input/output system, an operator ccmmunication 
module, a debug module with dump, patch, and snap capabilities, 
and a job accounting package. In addition, the monitor 
maintains a library of the system component programs and 
data base definitions that can be called by the user 
upon reguest to be added to his compile or execution package. 
The CMS-2 job flow is shown in Figure 1. 

2. CMS-2 Compiler System 

The CP-642B version Compiler is a two-phase langauge 
processor that analyzes a dual syntax source program (CS-1 
and CMS-2 languages) and generates object code for any one 
of the computers mentioned above. The phases cf compiler 
translation are described below and illustrated in Figure 2- 
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FIGURE 1 - CMS-2 JOB FLOW 
(Figure 1 was extracted from Ref, 1) 
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a. First Phase (Syntax Analyzer) 

The first phase of the compiler processes the 
user's source program which consists of CMS-2 and CS-1 
language statements and properly bracketed machine code 
instructions. The source statements are checked for 
validity, and an intermediate form of the program (IL) and 
symhcl table are generated. 

b. Second Phase (Code Generator) 

The second phase processes the IL and symbol 
table tc produce the final output listings and object code 
for the target computer. Each code generator produces the 
appropriate object code for each target computer in either 
absolute or relocatable format. The code may reference in- 
put, output, debug, and built-in functional routines. These 
rourtines are then linked to the object code of the calling 
program either by the compiler in an absolute mode or by 
the linking-loader in a relocatable mode. The built-in 
functional routines are either added in-line to the object 
code where referenced or are added as procedures to be linked 
together at run-time. 

3. CMS-2 Librarian 

The librarian is a file management system 
that provides storage, retrieval, and correction functions 
for a programmer's source programs and object code. 

a. Library Maintenance 

The library maintenance or executive control 
routine (LI3EXEC) is used to create, modify, or reproduce 
libraries for CMS-2 programmers. They contain source pro- 
grams, object modules, and predefined data designs. A library 
translator routine, under control of LIEEXEC, is used to 
convert existing CS-1 programs or libraries into a CMS-2 
library format. 

b. Library Search 

The library search routine is responsible for 
retrieving data from a previously created CMS-2 library. 
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4. Object Code Loaders 

The CMS-2 System includes two loader programs for 
linking and loading object code produced by the Ci3S~2 
compiler. The absolute leader loads all instructions and 
data at the addresses assigned during the compilation. 
Similarly^ the relocatable loader processes relocatable 
object code directly from the compiler or from a CHS-2 
library by assigning all program memory addresses and 
linking program segments to produce an executable object 
program. The loader, in the case of the AN/UYK-7, combines 
independently compiled program segments under a common 
base register or registers. 

5. Tape Utility 

The CMS-2 system provides a set of utility routines 
to assist the , programmer with the manipulation of data 
recorded on magnetic tape. The routines provide the capa- 
bility to construct, duplicate, compare, list, and 
reformat data files on tape. 

6. CUS^2 Flowcharter 

The flowcharter is designed to process unigue 
flowcharter statements in a user's CMS-2 source program 
and output a flowchart of the program logic to the 
high-speed printer. 

7. Assembler 

The assembler, in the case of the AN/UYK-7 version, 
accepts mnemonic oriented instructions and provides a macro 
instruction capability. 

fi. C£IS-2 LANGUAGE DESIGN 

This section presents an overview of the major 
features of CES-2, and its program, header, data, and 
control structures, as presented by references 1, 2, and 3. 

1. Major Features 

The major features of CMS-2 are: modular procedure- 
oriented program structures; high-level control structures; 
reentrant procedures; dynamically allocated data designs; 
separate definition of data and control structures; state- 
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ment oriented card input processing; lixed-point. Floating- 
point, Boolean, Hollerith, and Status data types; and Char- 
acter and Bitstring manipulation, 

2. Program Structure 

A CMS-2 Program is composed of ordered sets of state- 
ments organized into header, data, and control structures. 
These structures can be grouped to form System Elements called 
System Data Designs, System Procedures, or System Beentrant 
Procedures. Any System Element or Elements may he separately 
compiled as a System, which may be a complete- or partial 
execution package, as shown in Table I. 

The System Procedures and fieentrant Procedures are 
composed of ordered sets of Local and Auto Data Designs and 
Function and Procedure subroutines as shown in Table II. 

The local proqedure within a System Procedure which shares 
its name is known as the Prime Procedure and is the entry 
point for System Procedure calls. A System Reentrant Pro- 
cedure may only contain Auto Data Designs and its local 
procedures and functions are composed of reentrant state- 
ments. Each procedure that calls a Reentrant Procedure 
is dynamically assigned a private copy of the Auto Data 
Design during execution. 

The headers are groups of statements that precede 
System Elements and specify control of compiler and loader 
processing of source and object code. 

a. Program Statement Design 

Program statements are composed of various sets 
of symbols and delimiters which are further composed of 
elements from the revised U. S. ASCII standard Character 
Set. The symbols are catagorized as operators, control 
identifiers, data identifiers, and constants. 

Operators are described by special characters 
and reserved words, and are used for unary, binary, and 
functional operations. They may operate on defined data 
fields and are used for control of program execution. Con- 
trol identifiers are described by user declared words which 
define program locations where program execution flow may 
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SYSTEM B 



SYSTEM C 



SYSTEM A 

HEADEfi 

DECIARAIICN 



SYSTEM 
DATA DESIGN 



SYSTEM 

PfiOCEDUEE 



SYSTEM 

PfiOCEDUEE 



SYSTEM 

BEEKTEANI 

PfiOCEDUEE 



SYSTEM 

PfiOCEDUEE 



SYSTEM 
DATA DESIGN 


SYSTEM 

PROCEDURE 


EXTERNAL 

REFERENCE 


SYSTEM 
DATA DESIGN 


SYSTEM 

PfiOCEDUEE 


SYSTEM 

REENTRANT 

PROCEDURE 


SYSTEM 

PROCEDURE 


SYSTEM 
DATA DESIGN 


SYSTEM 
DATA DESIGN 


EXTERNAL 

REFERENCE 


SYSTEM 

PROCEDURE 


SYSTEM 

PROCEDURE 



TABLE I - SAMPLE PEOGEAM SYSTEMS 
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SYSTEM PflOCIDU fiE A 
LOC£L DATA EISIGN 

PBOCEDUEE A 

PBOCEDUEE fi 

LOCAL DATA DESIGN 

PBOCEDUEE C 

AUTO DATA DESIGN 

PBOCEDUEE E 

LOCAL DATA DESIGN 

FUNCTION E 

PBOCEDUEE F 



SYSTE M BEEN TBANT P BQ CIDURE B 
AUTO DATA DESIGN 

PBOCEDUEE B 

AUTO DATA DESIGN 

FUNCTION A 

PBOCEDUEE C 

AUTO DATA DESIGN 

FUNCTION D 

PBOCEDUEE E 

PEOCEDUEE F 



TABLE II - SAMPLE SYSTEM PEOCEDUEES 
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be transferred. These locations may be specified by state- 
ment labels or procedure and function names. 

Data identifiers define simple variables, 
statement switches, tables, and arrays. Constants are 
ordered sets of numeric characters with known, fixed values. 
They may be reals (decimal or octal) , Ecllerith strings. 

Status values, or Boolean. Another type of constant, called 
called a Tag, is represented by sets of alphanumeric char- 
acters and can be used throughout a compile-time System in 
place of literal constants. 

b. Scope of Identifiers 

The scope of an identifier is the range of pro- 
gram structure within which an identifier can he referenced 
or has neaning. 

(1) Forward and Backward Eeferences. «ithin a 
Data Design, a data structure may be referenced either 
before (forward) or after (backward) it has been defined. 

t 

Outside a Data Design, a data structure may only he referenced 
after it has been defined. 

A reference to statement labels within System 
Procedures; calls to local procedures and functions within 
their System Procedure; and calls to Prime Procedures not 
having formal parameters or abnormal exits may be either 
forward or backward. 

(2) Local and Global Definitions. local 
definitions are those identifiers which can be referenced 
only from within the System Element in which they are 
defined. Global definitions apply to those identifiers 
that can be referenced both from inside and outside the 
System Element in which they are defined. 

Local Data Designs are local only to the 
System Procedure in which they are declared. All System 
Data Designs and Prime Procedures are glcbal to their 
compile-time System. 

(3) External References and External Definitions. 
An external definition (EXTDEF) is a prefix that allows an 
Identifier to be referenced outside of the System Element 
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where it is defined. All System Data Designs and Prime 
Procedures ace automatically defined as external. An external 
reference (EXIEEf) is a prefix that allows an identifier to 
be referenced in a System Element that is local tc another 
System Element. These external references must obey the 
local/global ranges of the identifiers they reference. 

The following cases apply. 

(a) The identifer is a data structure in 
a local or system Data Design that follows the reference. 

(b) The identifier is a local procedure 
name, statement label, or data structure in a local Data 
Design, and is defined in another System Procedure. 

(c) The identifier is defined in another 
compile-time System that will be linked with the current 
System at load time. This case is identified by the prefix 
TBANSEEE in the AN/UYK-7 System. 

(-4) Declarative Delimiters. Table III shows 
the delimiters which declare the beginning and ending of the 
various program structures. 

3- Header Structure 

The header structure contains compiler control 
declaratives which specify action as to base register 
allocation modes, library retrieval and update options, 
program debug features, object code addressing, output 
format and listing options, system index-register inter- 
pretation, and the computer mode of operation within 
which the designated program is expected to run. These 
statements may be located in major headers, if the control 
applies to the entire compile-time System, and in minor 
headers, if the control applies only to a System Element. 

4. Data Structure 

The data structure consists of precise definitions 
of temporary and permanent data storage areas, inpi^t areas, 
output areas, and special data units such as program 
switches. These structures can be grouped together to form 
System, Local, and Auto Data Designs. A data declaration 
defines the type, precision, identifier, and ofticnally, the 
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BEGIN DEIIEITEE 


END DELIMITER 


DELIMITED ELEMENT 


SYSIEU 


END-SYSTEM 


Compile-time System 


SYS-DD 


END-SYS-DD 


System Data Design 


SYS-PROC 


END-SYS-PROC 


system Procedure 


LOC-DD 


END-LOC-DD 


Local Data Design 


PROCEDURE 


END-PROC 


Local Procedure 


FUNCTION 


END-FUNCTION 


Local Function 


SYS-PROC-REN 


END-SYS-PROC 


Reentrant System Procedure 


AUTO-DD 


END-AUTO-DD 


Auto Data Design 


HEAD 


END-HEAD 


Header Declaration 



TABLE III - CMS-2 PfiOGRAtl STRUCTURE EELIMITEES 
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scaling and preset value of a data element in a Data Design. 
The five major data structures are switches, variables. 
Tables, Arrays and Files. An Overlay declaration is used 
to define an identifier which is packed with the values of a 
list of variables or Fields in the order in which they are 
listed from lef t-to-righ t. 

a. Switches and Variables 

Switches provide for transfer of program control 
to statements or procedures depending upon the value of a 
programmer supplied index. A variable is a singular piece 
of data of length one bit, multiple bits, or computer words. 
If the length is not specified then a default parameter is 
assumed for the specified target computer. Variables may 
also be preset to a compatible value. 

b. Tables 

Tables hold ordered sets of identically struc- 
tured informatipn. The common unit of data structure in a 
Table is the Item. 

(1) Item. An Item consists of k computer 
words, where k is selected by the programmer or compiler. 

A Table may contain n Items, where n is a declared 
parameter. Tables may be declared horizontally such that 
all words 0 of all Items are stored together sequentially 
followed by all words 1 of all Items up to word n. The 
words of a vertically defined Table are stored such that all 
words of every Item are stored together sequentially. Item 
assignments are shown in figure 3. 

(2) Fields. Items may be subdivided into 
Fields, which are the smallest subdivision of a Table. A 
field may be a partial word, full word, or multiword sub- 
division. Fields have the same data types as variables and 
may be preset and altered dynamically as variables. In 
addition. Fields may overlap each other, but must be type 
compatible. Field assignments are shown in Figure 4. 

(3) Subtables, Like-tables, and Item-areas. 

The Table declaration structure also allows the programmer 
to define a subset of adjacent Items within a Table as a 
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Column 0 



Column 1 



Column 2 




FIGURE 3 - TABLE ITEM AND ARRAY ASSIGNMENTS 
(Figure 3 was extracted from Ref, 1) 







Word 0 



Word 1 



Word 2 



Word k-1 




Iterri 2 



Word 0 Word 1 Word 2 Word k-1 

EmZQU^ 

i ' ' 

1 V Field Y 

Field X V ^ / 

Field Z 



FIGURE 4 - TABLE FIELD ASSIGNMENTS 
(Figure 4 was extracted from Ref. 1) 
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Suttatle. The programmer may also allocate a working stor- 
age area outside the table, called an Item-area, which 
automatically takes on the same Field format as the Table 
Item- Additionally, the programmer may declare Tables 
having the identical Field format as the parent Table, 
called like-Tables, but having a different number of Items. 

The Table structures are shown in Figure 5- 

c. Arrays 

An array is a multi-dimensional extension of the 
Table concept for storing ordered sets of identically struc- 
tured information previously defined as Items. The array 
structures are shown in Figure 3. 

d. Files 

A File declaration defines a data structure environ- 
ment in which one or more physical files are to be processed. 

The declaration assigns a File name for dynamic statement 
referencing, identifies the symbolic name assigned to the 
actual hardware device, and declares that all data to be pro- 
cessed on the named hardware device is physically organized as 
described in the declarative statement. 

5- Control Structure 

The CI3S-2 control structure or dynamic statement 
specifies processing operations and results in executable code. 
Each statement consists of an operator followed by a list 
of operands and additional operators. An operand may be a 
single name, a constant, a data unit reference, or an 
expression- The data units may be variables, subscripted 
variables. Tables, or Files- 

a. Statement and Functional Operators 

The major statement operators are described in 
Table IV- The functional operators in CMS-^2 are used to 
facilitate references to and operations on data structures. 

These operators are described in Table V. 

b. Expressions 

Real expressions may include standard 
addition, subtraction, multiplication, and division 
operators, as well as exponentiation, mixed-mode values. 
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FIGURE 5 - TABLE STRUCTURES 
(Figure 5 was extracted from Ref. 1) 
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OPEEAIOR 

SET 

SHAf 

GOTO 

IE 

VAEY 

FINE 

PACK 

SHIFT 

BESUME 

BETUBN 

EXEC 

Slop 



MEANING 

PerforiDS claculaticns or assigns a value to one or 
more data units. The assignemnt may be Real, 
Hollerith, Status, Boolean or Multi-word. 

Exchanges the contents of two data units. 

Alters program flow directly or via a statement 
switch. 

Expresses a Boolean test situation for conditional 
execution pf one more statements. 

Establishes a program loop to repeat execution of 
one or more statements by varying one or more 
indexes by a specified increment until a test 
value is satisfied. 

Searches a table for data that satisfies specified 
conditions, and assigns to subscript variatles the 
index values pointing to its location. 

Transfers bits strings into a data area. 

Shifts a string of bits right or left a specified 
amount. 

Specifies a transfer of execution control to the 
increment and test steps within a VARY block, 

A transfer of execution control from a procedure 
call that specifies normal return to a label if a 
special condition is met, or a return of the value 
or an expression to the point of call. 

A call to an executive program which passes one or 
two parameters indicating what action to be taken 
and on what data unit or address. 

Temporaril.y suspends program execution until 
manually restarted cn the computer. 



lABLE IV - CONTfiOL STATEMENT OPEEATOfiS 
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OFZEAT^ 

BII 

CHAE 

COBAD 

AES 

EOS^ fIL 

LENGTE 

CNT 

CAI 



0|g£ATQB 

DISELAY 

SNAE 

BANGS 

TEACE 

ETBACE 



EJANING 

To reference a string of bits in a data unit. 

To reference a string cf characters in a hollerith 
data unit. 

To reference a data unit's relative core address. 

To obtain absolute value of an arithmetic primary. 

To move a magnetic tape record, f-ile a specified 
number of positions forward or backwards. 

To obtain a record's length for the last input- 
output operation. 

To obtain count of bits set to one in a data unit. 
To concatenate character strings. 



TABLE V - FUNCTICNAL OPEBATCES 



M r AM TXT n 

Causes the contents of machine registers and 
specified data units to be formatted and printed 
on the system output device. 

Contents of a data unit are printed and stored. 
Subsequent executions cause a printout only when 
the data contents are modified. 

High and low values are specified for a data unit, 
ana each time the data unit is modified in the 
program, a^ message is printed if the value falls 
outside -the range. 

A printout is generated for the execution cf each 
CtlS-2 statement between TRACE and END-TRACE. 

Each CMS-2 procedure call encountered in the 
pregram being executed is identified by calling 
and called procedure names. 



TABLE VIII - EBOGBAM EEEUG STATEMENT OPERATORS 
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and in-line redefinition of the scaling of fixed-point 
numbers. 

A relational expression performs a comparison 
betvfeen two similar operands as specified by a relational 
operator. There are four types of comparisons: 

(1) Real » involving the comparison cf signed 
Real values (fixed, floating, or mixed) , 

(2) Hollerith , involving a lef t-to-right, 
character-by- character comparison, 

(3) Boolean , involving the comparison of 
single bits, and 

(4) Status , involving the comparison of status 

values. 



A CMS-2 expression may include algelraic, 
relational, and Boolean operators. The heirarchy of 
expressional evaluation is shown in Table VI. 

c. Input-output Statements 

The CMS-2 Input-output statements permit the 
program to communicate with the various hardware devices 
while running in a monitor environment. The operators are 
described in Table VII. 

d. Program Debug Statements 

The CMS-2 Debug statements are placed in the source 
language to cause run-time debug routines to be available for 
program execution analysis. The debug statement operators are 
described in lable VIII. 
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PB ICRIIY 

1 

2 

3 



OPEBATOE 

*,/ 






DEFINITION 

EXPONENTIATION, UNABY MINUS 
MULTIPLICATION, DIVISION 
ADDITION, SUBTBACTION 



4 



EQ, NOT 
GT, LTEg 
GT'EQ, LT 



EQUAL, NOT EQUAL 

GEEATEE THAN, LESS THAN OE EQUAL 
GEEATEE THAN OE EQUAL, LESS THAN 



5 



COMP 



LOGICAL COMPLEMENT 



6 



AND 



LOGICAL MULTIPLICATION 



7 



OE 



LOGICAL SUM 



8 



XOB 



LOGICAL DIFFEBENCE 



TABLE VI - CMS-2 MIXED EXPBESSION EVALUATION 
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OfEJAT^ IIUING 

FILE Defines the environment and pertinent information 

concerning an input or output operation, and 
reserves a Luffer area for record transmission. 



OPEN 

CLOSE 

INPUT 

OUTPUT 

FOEMAT 

ENCODE 

DECODE 

ENDFILE 

CNECKID 

SEAECH 



Prepares an external device for input, output, or 
scratch (both) operations. 

Deactivates a specified file and its external 
device, sends last unfinished buffer to output. 

Directs an input operation from an external device 
to a FILE bufrer area. 

Directs an output operation from a FILE buffer 
area to an external device. 

Defines the desired conversion between 
data blocks and internal data definitions. 

Directs transformation of data elements into a 
common arrea, with conversion in accordance with a 
specified FORMAT. 

Directs unpacking of a common area and transmittal 
to data units as specified by a FOBMAT 
declaration. 

Places and end-of-file mark on appropriate 
recording mediums. 

Directs checking an id header or label on a FILE 
if the device is at load point. 

Directs a search operation for specific data 
within a FILE. 



TABLE VII - INPUT-OUTPUT STATEMENT OPEBATOBS 
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Ill- EEVISED COHPILEB AND LANGUAGE DESIGN 



This section describes the CMS-*2SS Compiler System and 
Language design capabilities which differ from the CMS^2 
System- A more complete description of the CMS-2IS language 
is provided in Appendix B- 

A- IBOGfiAM STEUCTUEE 

In a large system of programming modules, the problems of 
isolation of logic design error and verification of program 
correctness tend to increase exponentially as the number of 
combinations of program procedure call parameters and trans- 
fers of execution control increase- To counter this problem, 
a well-defined method of software engineering and suitable 
language-compiler system are needed- 
1- Structured Programming 

The term "Structured Programming" is defined in ref- 
erences 4 and 5 as a top-down method of program building with 
the top program modules being at the highest level of the 
program logic design and referencing the next level modules 
as procedure calls in its control structures. 'This process 
continues until the modules at the lowest level are refer- 
encing basic machine and operating system constructs. 

In reference 6, Bohm and others have shown that the 
control logic of any programming problem can be represented 
by the three basic control structures: simple statement 
seguences, IF THEN ELSE statements, and DO WHILE statements. 
The CASE structure of ALGOL W may also be required to prevent 
multiple nesting of IF THEN ELSE statements. 

To ensure program reliability under varying loading 
conditions, its logical correctness must be easily verifiable 
The first requirement must therefore be to restrict each 
program segment to exactly one entry and exit pcirt. Another 
requirement is that library substitution facilities be 
provided at compile and load-time so that the segemnts can 
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t)€ stored and retrieved by symbolic names. Finally, scope 
of identifiers and GOTO statements must be controlled in their 
application to prevent unlimited access to data and control 
structures. 

2. Program Struc ture Revisions 

The program structure of CMS-2fiS retains the modular 
structure of CMS-2, but includes several revisions to its 
conventions for procedure exit, and identifier referencing 
to facilitate implementation of the top-down programming 
concept, 

a. Procedure Exit 

The convention of allowing unrestricted abnormal 
exits or returns to a calling procedure has been modified. 

A return which precedes the point of call may result in 
an infinite loop condition, given the abnormal exit condi- 
tion still exists. Abnormal exits have therefore been 
restricted to return points which follow the point of call 
and lie within the calling procedure. 

b. External Referencing and External Cefinition 

The concept of externally defining an identifier 

in one element to be externally referenced by another ele- 
ment destroys the integrity of the System Procedure and 
its Local Data Designs, A program logic error related to the 
above concept may be very difficult and costly tc locate. 
Therefore, external references are only allowed between 
different compile-time Systems and then only by specifying 
the identifiers of System Data Designs, System Procedures 
or Reentrant Procedures. The prefix EXTREF now applies 
to System Data Designs in symbol table format and to System 
Procedures in source code format, and at load- time to System 
Procedures in object code format. The Elements thus speci- 
fied are then added as complete sections to the compile or 
load-time System as appropriate. 

If it is necessary to reference another System 
Procedure's Local Data Design structures at compile-^time, 
then the data structure must be removed and put into an 
apprcpiiate System Data Design so that it is global to 
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both procedures. The external definiticn, EXTDEF, and 
transient reference, TEANSEEF, prefixes have been eliminated 
to simplify language and compiler design. 

c. Forward aiid Backward Eeferences 

The forward reference of identifiers within 
a data design is not necessary and has therefore teen 
deleted. The Tag declaration, which is used tc name a 
constant throughout compile-time, is sufficient to allow 
presetting of ail data structures within a data design. 

d. Local and Global Definitions 

The local and global definitions of identifiers 
allow program structure to develop in a logical fashion. The 
System Procedures at the lowest physical program level have 
access to their Local Data Designs and all other previously 
declared System Data Designs. The System Procedures at the 
highest level in the program, however, have access only to 
their Local Data Designs and all System Data Designs declared 
above. This concept of scope of identifiers provides for 
icplementation of the structured programming concept by 
allowing the top procedure to be written at the highest logic 
level and the bottom at the lowest level as shown in Figure 6 
What is required though, is a means of prescribing what level 
of control structures (how close to the machine) should be 
allowed within each System Procedure in an executable System. 

3. Multi-level Programming 

A Multi-level programming system is one in which all 
the language constructs are expressed on a high lexical 
level. They are, however, capable of implementing systems 
as well as applications programs. If these constructs are 
to be controlled in their use in all types of programming, a 
matrix of levels of programming verses language constructs is 
required in the syntax analyzer to allow only the appropriate 
code to be generated for each programming level. The Syntax 
analyzer can thereby control which grammar reductions are 
allowed at each programming level in a System, A further 
requirement exists to define in the Monitor System a matrix 
specifying which levels are accessible by each user, module 



34 




VJ4 

VJl 



Widest 



Scope of 
Identifiers 
in SYS-DD»S 



Narrowest 




NarrQwest 



SYS-PROC 
Access to 
SYS-DD*S 



Widest 



FIGURE 6 



SCOPE OF DATA DESIGNS 




and corresponding project. The resulting systea allows a 
programnier to specify that other levels of prograai modules, 
for which he is not authorized to generate code, are to be 
added at the appropriate level to his ccmpile-time or load- 
time System. The concept of System executive cr supervisor 
state and task state are thereby expanded to levels of states. 
For example, the use of System Registers as variatles in 
expressions and assignment statements is limited to those 
levels which reguire register access such as I/C routines. 

Thus the Monitor System has complete control over which user 
generates what level of code for which system and provides 
a means of security over use of program control constructs. 
This concept is illustrated in Figure 7. 

4. Declarative Delimiters 

Table IX shows the revised delimiters which declare 
the beginning and ending of program structures. 

B. HEADER STRUCTURE 

The minor header declaration has been eliminated and 
major headers now only apply to the entire compile or load- 
time System. The header declarations were not implemented 
in the current CMS-2RS compiler, but could easily be included 
in the same manner as the data declarations. The following 
CMS-2 statements have not been implemented in the header 
structure in order to simplify the CMS-2RS language and 
compiler. 

1 . EQUALS and NITEMS Statement 

The Eguals statement is used to assign numeric values 
to variables and to specify their allocation relative to 
ether variables. 

a. Numeric Assignment 

The assignment of numeric values to symbols by 
simple parenthesis-free expressions requires the generation 
cf compile-time code to preset symbols to the desired values. 
This practice is not necessary since symbols can be initial- 
ized in the data design by presets or in the procedure itself 
by dynamic code. Allowing this method of pre -ini tializat ion 
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1 



Scheduling Process 














JIGM-.|elimitee 


END DELIMITER 


DELIMITED ELEMENT 


SYSTEM 


END 


Compile-time System 


SYS^DD 


END_DD 


System Data Design 


SYS^PROC 


END 


System Procedure 


SYS_PEOC_R 


END 


System Reentrant Procedure 


PROCEDURE 




Local Procedure 


FUNCTION 




Local Function 


LOC_DD 


END_DD 


local Data Design 


AaiC_DD 


END_DD 


Auto Data Design 


HEAD 


END_HEAD 


Header Declaration 



TABLE IX - CMS-2ES PEOGBAM STRUCTUBE DELIMITERS 
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introduces a possible source cf error that may be difficult 
to detect and violates the structured programming concept of 
program segment integrity. Further, initializing symbols at 
compile-time reguires that header declaration information 
always be a part of the System procedure or Data Design in 
order to maintain library configuration control. 

b. Eelative Allocation 

The relative allocation feature allows a data unit 
to be assigned the same relative location as another data 
unit. This relative allocation capability can also be 
accomplished at run-time by the CORAD functional operator, 
thus preserving library segment independence. 

The NITEHS declaration specifies that an identifier 
is to be assigned a value fcr compile-time purposes, but may 
also be assigned another value at load-time* It is used only 
for establishing the number of items in a verticarl Table whose 
size is to be determined at lead-time. 

The EQUALS and NITEMS statements were net i uplemented 
since mest of their capability could be more easily provided 
by the lag declaration. 

2. CSWITCH Statement 

The CSWITCH (compile switch) statement provides se- 
lective compilation of blocks of statements within a System 
Element. The CSWITCH parameter identifies a group of state- 
ments within a CSWITCH block. In the header, the list of 
parameters following the CSWITCH identifier specifies to the 
compiler those CSWITCH blocks which are to be compiled in the 
System Element or Elements that follow. The parameter 
DELEIE specifies that all CSWITCH code blocks in the follow- 
ing Element or Elements, which are not being compiled, are 
to he deleted from the source output and listings of the 
compiler. 

The CSWIICH feature was not implemented since the 
ability to selectively delete code frem compilaticc complicates 
the problem of program segment configuration control and in 
some cases duplicates the library CORRECT feature. 
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3. DEP And EXECUTIVE Statements 



The DEP statement informs the compiler of a list of 
System Elements which are dependent or subordinate to the 
System Element following the header declaration in a corn-pile 
or lead-time System. 

The EXECUTIVE statement function informs the 
compiler thQ.t the following System Element or Elements are 
allowed to generate control memory references to index reg- 
isters and accumulators using the symbolic identifier speci- 
fied in the System Index (register , name) declaration. 

These statements will not be necessary if a multi- 
level compiling concept is implemented. Instead what is re- 
quired Is a .declaration which informs the compiler of the 
program level and project type of the following Element or 
Elements. 

. SPILL Statement 

The SPILL statement causes every identifier within 
a System Procedure to be declared as an External Definition. 
This statement has not been implemented since its capa- 
bility can be achieved by relativley simple program changes. 

5, Summary 

In summary, the header declarations should be used 
to inform the compiler of the type of Element allocation 
(static or relocatable) and the type of output required for 
the compile and load-time Systems. They should not be used 
to modify the Element’s internal data allocation and control 
structure representation. Header statements are also used to 
specify library retrieval-correction, debug, and data design 
pooling changes to the compile or load-time Systems* default 
parameters. 



40 




C. lAIA SIfiUCTUHE 

Ihe data structure of a program must allow a compact 
definition of a data unit's attributes and provide for pre- 
setting it to a constant or Tag va^-ue. The following changes 
have been made to simplify CMS-2ES. 

1* Data Types 

The data types available in cns-2 do net explicitly 
include a type that allows operations on the mathematical set 
of binary digits. The data type Boolean is used primarily 
for the logical operations of conjunction, disjurction, and 
negation. Therefore, it has been limited to a fixed length 
set whioh is defined as either True or false and no longer 
can be used -for bitstring manipulation. 

To provide a Bitstring capability, a new data type 
has teen defined, called Bits, which allows the logical 
operations of "and", "or", complementation, as well as SHIFT 
and substring functional operations. These operations pro- 
vide the capability for programming at the bit level in 
addition to programming at other data type levels. 

The data type Integer, as well as fixed-point and 
Floating-point, are now treated as Reals and may only be used 
in Real expressions. 

2. Data Elements 

The data element constructs in CMS-2RS provide a 
means of organizing data into the most commonly used struc- 
tures. with the exception of lists, 

a. Switches 

The Index switch declaration for statements is 
composed of an index variable followed by a list of n state- 
ment labels to which control may transfered depending upon 
the value of the index (0 to n-1) . An alternative form of 
the declaration contains two index variables and a column of 
labels for each. The item switch declaration is composed of 
a variable followed by a list of constant statement- label 
pairs. 
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The Procedure switch declaration is composed of 
procedure names to which calls may be made, and a list of 
formal input and output parameters for each procedure. 

The statement switch and procedure switch 
capabilities have been incorporated into the CASE state- 
ment. 

b. DATA and MODE Declarations 

The DATA declaration has been incorporated 
into the data unit preset capability in the data designs. 

To facilitate this, a TAG declaration has been added which 
allows the programmer to assign a constant value to an 
identifier which can be used throughout a compile-time 
System^ 

The MODE declaration, which speciifes that su=b- 
sequent data declarations have the same data type, has been 
superceded by the requirement that type specif ications appear 
in every data declaration. 

c. Variables 

The precision specification for variables is no 
longer optional. It must now be specified and each code 
generator will translate it into the appropriate length for 
its target machine. 

The V(x,y) specification requires the compiler 
to preset-scale a variable starting at the y bit position 
by defining that position with a magnitude of x and each sub- 
sequent position as one half the preceding positions* value. 
This capability has been provided by the Bits data type 
expresssicns. 

d. Tables 

The option tc store one dimensional Tables in 
either vertical or horizontal alignment has not been imple- 
mented in favor of aligning all Items vertically <all words 
stored sequentially) . An optimum search capability is now 
provided by the compiler that allows Table searching to be 
independent of Item word storage alignment. 
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Th6 Optional counter (major index) , which keeps 
track of the actual number of items within the table, has 
not been implemented. This feature was programmer maintained 
and could just as easily be accomplished by a normally de- 
clared Integer variable. 

Like-tables have not been implemented since the 
same capability can be achieved by declaring either another 
Table with a different number of items or a Sub-table with 
the desired dimensions. 

The Sub-table concept has been extended to in- 
x:lude arrays or multi-dimensional Tables, as well as one 
dimensicnal Tables, 

The INDIEECT Table implementation has been 
simplified by rot reguiring the COfiAD functional operator 
in making procedure calls by address, Tbe fact that the 
formal input parameter is an INDIRECT Table name cr that the 
corresponding formal and actual input parameters afe of 
the same name is sufficient to achieve a procedure call in 
which no values are passe-d. further, the INDIRECT option 
may not be used as an actual parameter. 

The Field declaration has been changed to allow 
only type ”b” word packing, that is the compiler assembles 
the Fields within Table Items sequentially in the order in 
are declared, 

6* Overlay 

The Overlay declaration has not been implemented 
since dynamic packing of a variable with a list cf variables 
can he accomplished by the PACKIN instruction. The static 
packing of variables is of questionable value in a language 
with a message processing capability and requires an un- 
necessarily complicated compiler data declaration capability. 
If a list processing capability is required, it should be 
added as a complete feature of the language and compiler 
including list declarations and logical set operators such 
as union, intersection, add-to, and delete-from. 
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D. COiJIROL 3TRUCTDRE 

The CMS-2BS control structure provides the capability to 
specify parallel as well as sequential processes, further, 
a structure has been provided which groups statements into 
blocks for sequential prccessing. This section describes 
the control statements wijich have teen added to the CMS-2RS 
language to implement the above capabilities. Additional 
changes have been made tc provid.e the capability to implement 
the structured and multi-level programming concepts, 

1- BEGIN and END Declaratives 

The BEGIE and END block structure declaratives, which 
are described by Bauer in reference 7, have been imple- 
mented to allow grouping of statements for sequential exe- 
cution. There is no imposed limit on the number cf levels 
of block structure that can be nested within a System Pro- 
cedure since data designs are declared separately from 
control structures. 

2. VARY Statement 

The VARY Statement has been changed to allow an 
cpticnal increment value (other than 1) for each index 
variable on the same Icop level. The loop execution will 
cease cnly when all indexes have reached their test value. 

3. CASE Statement 

The CASE statement, which is described by Bauer in 
reference 7, has been added to the language to provide the 
capability for selective statement execution. A case index 
value is compared at run-time to a list of case labels to 
determine which statement will be executed. Each statement 
in a case block may have more than one label and labels may 
be either Integer or Status constants. An ELSE case capa- 
bility has also been provided in the event the index value 
falls outside the range of the case label list. An alternate 
version of the CASE statement has been implemented which 
does not require statement labels. An implied labeling seq- 
uence of 0 to n-1 is used to select one of n statements in 
a case block- 
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i|. Mhile Statement 

The While statement has been added to frcvide for 
locf controlled execution of a statement or block of state- 
ments based upon the continued True condition of a Boolean 
expressicn. 

5. IF Statement 

The IF statement has been modified to allow nesting 
of IF THEN ELSE statements. Only simple (not CASE, VARY, 
WHILE, or IF) statements are allowed within the nesting 
structure. All types of statements, however, may be used 
for the last statement after the last ELSE. 

The "IF DATA FOUND THEN" and "IF DATA KCTICUND 
THEN" statements have not been implemented since the in- 
dicies cf a Table or File in a SEARCH statement will be set 
to minus one if the search is unsuccessf ul , otherwise they 
will be set to the location of the desired data unit. 

The "IF (subscripted data structure) VALID/IN VALID 
THEN" statements have not been implemented since the Boolean 
functional operator SUBSCRIPT, v/ith parameter subscripted 
data structure, provides a True of False indication of sub- 
script range validity, and can be implemented by using it 
within an "IF THEN ELSE" statement. 

The "IF (data unit) ODDP/EVENP THEN" statements 
have not been implemented since the COUNT (data unit) func- 
tional operator provides the same capability when checked 
for even or odd value in an IF statement. 

6. label Declaratives 

Labels are allowed on every statement type except 
statements within VARY, CASE, RESERVE, and WHILE statement 
blocks. Multi-level programming, however, may be used to 
restrict their use to specified program levels, 

7. SEARCH Statement 

The SEARCH and FIND statements have been com- 
bined to simplify searching a Table or File structure for 
a particular data unit. If found, the index variables in 
the data sturcture's dimension list will be set at run- 




time to f:cirit to the data unit's location, otherkise they 
will te set to minus one. 

8. UNFCK Statement 

Ihe UKPCK statement has been implemented to allow 
a data unit to be unpacked into a list of data units in 
sequence fjrom left- to-right . If the combined length of the 
receiving data units is longer than the source, then they 
are filled with zeroes. 

S. Procedure CALL Statement 

The procedure CALL statement has been changed to 
allow calls by value, value-result, result, address, and 
address-result. All input and output actual parameters 
are optional and need not agree in number, but must agree 
in type. An expression may be used as an input actual para- 
meter but only a data unit may be used as an output actual 
parameter. 

10. GOTO, EETUENTO, and RESUME, Statements 

The GOTO, SETURNTO, and RESUME statements have been 
implemented to allow transfers only to labels within a 
System Procedure. The GOTO and EETURNTC statements, with 
special hardware condition checks, have not been implemented 
since the same capability is available by using the INTERRUPT 
Boolean functional operator within an IE THEN GCTC statement. 
The GOTO statement with an Item or Index-switch name check 
has not been implemented since the same capability is avail- 
able with the CASE statement. 

11. RETURN Statement 

The RETURN statement has been changed to allow trans- 
fer with a data unit instead of transfer with the result of 
an evaluated expression. 

12. INPUT and OUTPUT Statements 

The INPUT statement has been implemented to allow 
moving of Character and Binary records from READ, OCM 
(Operator communication medium) , and user declared Files to 
the following user specified receiving data units: Tables, 
Fields, Items, or variables. The OUTPUT statement has been 
implemented in a similar manner for PRINT, PUNCH, OCM, and 
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Both statements allow data to be 



user declared Files, 
moved back and forth frcia internal to external structures. 

13. fXEC Statement 

The EXEC Statement has not been implemented since a 
normal call tc a procedure, with the proper input parameters 
and at the appropriate programming level, accomplishes the 
same effect. 

14. STOP Statement 

The STOP statement, with a hardware special condi- 
tion check, has not been implemented since the same capa- 
bility is available by using the INTEERUPT functicnal oper- 
ator in an IF statement, 

15. COBEGIN and COEND Declaratives 

The COBEGIN and COEND declaratives which are des- 
cribed by Hansen in reference 8, have been implemented to 
allow simultaneous execution by more than one processor of 
several statements including procedure calls. Each process 
may refer to shared resources such as variables, subscripted 
variables. File records, and non-reentrant procedures only 
if their values are not changed. Reading from and adding 
to the end of data structures, however, are legal accesses 
to a shared resource. 

GOTO statements are not allowed within a COBEGIN- 
COZNE block to prevent errors arising frcm the transfer of 
control from one process tc another. In addition, COBEGIN 
and COEND declaratives may be nested to any level within a 
System Procedure or Reentrant Procedure. Thus, they may 
be used to describe any combination of parallel and sequen- 
tial processes. 

16. RESERVE and WAIT Statements 

The RESERVE statement has been added tc frcvide a 
means fcr the programmer to specify critical sections in 
each process within a COBEGI N-COEND block. The parameters 
for the RESERVE statement are those resources which may 
be change-accessed by two cr more processes. Each resource 
thus specified, is identified as belonging to a particular 
process. If another process desires access to the same 



^7 




resource then that process will be enqueued on a wait list 
for later access when the resource is freed. Ihe WAIT state- 
ment has teen added to allcw synchronization of processes, 
that is, to specify that the controlling procedure is to 
suspend execution until one or more procedures have com- 
pleted their execution. These statements are intended to 
allcw the programmer to explicitly control the execution cf 
parallel and synchronized processes. 

17 . S-E.T Statement 

The SET statement allows assignment of evaluated 
expressions and Table values to a compatible data unit cr 
list cf units including other Tables, The data units allowed 
are variables, subscripted variables, and Tables. Table 
assignments must be size and Item-length compatible or the 
desired result may not be obtained. Subscripted variables 
must specify Field name. Table name, and dimensions. 

The ”SET (receptacle (s) ) TO (expression) THEN” 
statement has not been implemented since the sane capability 
is available by using an IF THEN SET statement. 

The ”SET (receptacle (s) ) TO (expression) SAVING 
fReal data unit) OVERFLOW (label) ” statement has not been 
implemented since the same capability is available by using 
the EEM operator within an IF THEN GOTO statement. 

E. EXPRESSIONS 

The expression types implemented in CMS-2ES include 
Real, Eits, Status, Character, and Boolean, Real expressions 
include Integer, Fixed-point, and Floating-point data types, 
1, Beal 

In Real expressions, a binary operator has been 
addec which gives the remainder after division of two real 
primaries (REM). In addition, two functional operators 
have teen added: The operator NUMBER, with parameter Bits 
primary, converts a Bits value into an Integer value; and 
the operator CHAECODE, with parameter Character primary, 
converts a character symbol code into an internal integer 
representation. 
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The type cor*ver£ion conventions for mixed operand 
expressions are, 

a. Decimal and cctal operands will be converted 
to decimal results, 

h. Integer and Fixed-point operands will be con- 
verted to Fixed-point results, 

c. Integer and Floating-point operands will be 
converted to Floating-point results, 

d. Fixed-point and Floating-point operands will 
be converted to Flcating-pcint results. 

Where the receptacle is of smaller precision than 
the evaluated expression, the next least significant digit 
will he rounded and the remaining digits truncated, 

2, Bits 

The SHIFT statement has been replaced by the follow- 
ing unary operators in Bits expressions: shift left-logical 
(SHil) , shift right-logical (SHRL), circular end-arcund 
shift left (CIRSHLL) , and circular end-around shift right 
(CIHSHRL) , 

The binary operators, logical and (ANDL) , logical 
or (ORL), and logical complementation (NGTL) , have been 
implemented to allow logical operations on Bits operands. 

If the operands are of unegual length, the shor^ter one is 
right justfied and filled with zeroes on the left before a 
binary operation is completed. 

The functional operator BIT has been renamed 
BITSTRIHG, but performs the same function of converting 
a Beal primary to a Bits value and extracting a specified 
number of binary digits from it starting at any position in 
the string. 

3, Character 

Cne functional operator has been added to Character 
expressions. The CODECHAR operator, with parameter Real 
primary, converts an integer value into a single character 
symbcl code. The CHAR operator has been renamed SUECHAR, 
but performs the same function of extracting a specified 
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Dumber of character symbols from a Character primary start- 
ing at any character position in the string. 

^1. Boolean 

The unary operator COMP or co mplementat icn has been 
renamed NOT, The binary operators allowed in Boolean expre- 
ssions are conjunction (AND) and disjunction (OB) . 

The comparison operators in relational expressions 
have been changed to: equal (=) , not equal (- 1 =) , less than 
(<) / greater than (>) , less than or equal (<=) , and greater 
than or equal (>=) . Ihe following restrictions are placed on 
operand comparisons: Real operands are converted to the same 
type before they are compared. Bits operands of all lengths 
are compared from right- to-left and only for equal or not 
equal. Character operands are compared from lef t- to-right 
for all lengths with longer strings having a value of greater 
than if all other characters are equal, and Status operands 
are compared by their Integer value. In a Status variable 
declaration, the first Status constant associated with the 
variable is assigned a value of zero increasing by incre- 
ments of one for each additional Status constant. 

If an expression involves operations of the same pri- 
ority they are performed from lef t-to-right. In parenthe- 

sized expressions, the innermost parenthesized “ex pressicns 
are evaluated first, A hierarchy of evaluation is shown in 
Table X. 
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TABLE X - CMS-2RS 



DEFINITION 



ABSOLUTE VALUE, UNARY MINUS 
SIRING CONCATENATION 
BITSTRING COMPLEMENTATION 



EXPONENTIATION 
SHIFT LEFT LOGICAL 
SHIFT EIGHT LOGICAL 
CIRCULAR SHLL 
CIRCULAR SHRL 



MULTIPLICATION, DIVISION 
REMAINDER AFTER DIVISION 
LOGICAL AND 
LOGICAL OR 



ADDITION, SUBTRACTION 



EgUAL, NOT EQUAL 

LESS THAN, GREATER THAN OR EQUAL 
GREATER THAN, lESS THAN OR EQUAL 



NEGATION 



CONJUNCTION 

DISJUNCTION 



XED EXPRESSION EVALUATION 
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IV. LANGUAGE ANALYSIS 



Ihe following sections describe Simple lef t-to-^right 
parsing, with k symbols of look-ahead, Ccntext-Frse gram- 
mars (SLR (k) ) , an SLR (1) parsing algorithm, and SLR(l) syntax 
analysis of CflS-2RS. 

A. SlB(k) CCNTEXT-fREE GEAMNARS 

The class cf LE (k) grammars is the largest class of 
grammars which can be naturally parsed lef t-to-right and 
bcttcm-up using a deterministic pushdown automatcn. Among 
the various sub-classes of LE (k) grammars are precedence 
and tounded-right-context grammars. Since LR (k) grammars 
have these properties, CMS-2ES was defined as an SLR(1) 
context-free grammar. This section describes context- 
free grammars and SLR (k) grammars as presented ty ref- 
erences 10 and 9. 

1. Grammar 

A Grammar is defined by a quadruple of sets of ter- 
minal symbols (VT) , non-terminal symbols (VN) , a start symbol 
(S) , and productions (P) . The letters VT denote a finite 
set cf terminal cr non-reduceable symbols from the vocabu- 
lary (V) of the grammar. The letters VN denote a finite 
set cf non-terminal or variable symbols from which various 
strings of terminals and non- terminals can be derived. 

The letter S denotes the start non-terminal symbcl from 
which all strings of terminals in the grammar are derived. 

The letter P denotes the finite set of producticns cr 
relations between the left part symbols in VN and the right 
part strings of symbols in V*, where V=VN U VT and V* de- 
notes the set of all strings composed of symbols in V 
including the empty string. 

2. Context-free Grammars 

A Context-free grammar is one in which every pro- 
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duction is of the form v=>W, where v is a single variable 
and w is any string other than the empty string, 

3. pirect Production or Reduction 

For a grramsiar a string v Directly Produces a 
string w or w Directly Reduces to v, written v=>w, means: 
if D=>u is a rule of G , and x and y are strings which may 
be empty, then v^xUy, and w=xuy. 

4. Production or Seduction 

A string v produces a string w or w reduces to v, 
written v=>+w, means: if n>0 and n is the number of produc- 
tions frcm V to w, then v=u (0) =>u (1) =>u (2) =>• - .=>u (n) =w , 
where if v=w or v=>+w then v=>*w , and u (i) denotes the ith 
prod uct ion. 

5. Sentential Form 

A string x is called a sentential form if x is derivable 
from the start symbol S, written S=>=^'x. 

6. Sentence 

A sentence is a sentential form consisting only of 
terminal symbols. 

7. Language 

The language of the grammar, written L (G (£) } , is the 
set cf sentences: L (G) = (x j S=>*x and x is in VT + ) . 

8. Phrase 

If w=xuy is a sentential form then u is called a 
phrase cf the sentential fcrm w for the non-terminal 0 if 
U=>+u. and S=>*xUy. In addition, u is called a simple phrase 
if S=>*xUy and U=>u. That is, not only must a reduction be 
possible using a production in the grammar, but the reduced 
sentential form must also be derivable from the start symbol. 

In addition, u is called a simple phrase if S=>*xUy and U=>u, 
that is, not only must a reduction be possible using a pro- 
duction in the grammar, but also the reduced sentential form 
must be derivable from the start symbol. 

9. Canonical Derivation 

A direct derivation xUy=>xuy is canonical, written 
xUy=J>xuy, if y contains only terminals. A derivation w=>+v 



53 




is canonical, written w=J>v, if every direct derivation in 
it is canonical. 

10. farse 

A Parse of a sentential form is the construction of 
its derivation. 

11. Left-Pight, Bottcm-Up Parse 

In a left-right, bottom-up parse, the leftmost 
simple phrase (the Handle) of the current sentential form is 
always reduced. Thus, the string to the right cf this 
phrase always contains only terminals. 

12. Rightmost Derivation 

A rightmost derivation is one in which at each step 
the rightmost variable in the sentential form is replaced. 

13. LR(k) Grammar 

A Context-Free grammar is LE(k) if for any sentential 
form w=xuy the following holds: there is a unique form for 
w, and there is a rightmost derivation S=>*xUy=>xuy , where 
U is replaced by u at the last step, and U and u can be 
uniquely determined by scanning w from left-to-r ight up tc 
a pcint at most k symbols beyond u. 

B. SLR(k) PARSING ALGORITHM 

This section describes Context-free LR (0) and SLR(1) 
gramnar parsing as presented by reference 9. 

1. Context-free Parsing 

let G be a Context-Free grammar, and suppcse that 
the productions P are numbered 1,2,...,p. Let V be in the 
set VT U VN*. Then: 

a. A left parse of V is a sequence of productions 
used in a leftmost derivation of v from S. 

b. A right parse of v is the reverse of a sequence 

of productions used in a rightmost derivation cf v from S in G. 

Consider the grammar where the productions are numbered 
as shown: 
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a, E::=j3+T — 1 

b. E::=T — 2 

c, i::=i*F — 3 

d. T::=F — 4 

€• F:: = (E) — 5 

f. F::=a — 6 

The left parse of the sentence a=«=(a+a) is 23465124646. 
The right parse is 64642641532. The right most derivation 
from E is: 

a. E=>E+T:1 
fc. =>E+T*F:3 

c. =>E+T*a:6 

d. =>E+F*a:4 

f. =>E+a*a:6 

g. =>T+a*a:2 

h. =>F+a*a;4 

i. =>a+a*a;6 

Writing in reverse^ the sequence of productions used 
in this derivation gives the right parse 64266431. In gen- 
eral a right parse for a string v in a grammar G is a seq- 
uence of productions which can be used to reduce v to the 
start symbol S. 

The parsing proceeds using essentially a right parser 
cycling through all possible rightmost derivations, in re- 
verse, that are consistent with the input. A move consists 
of scanning the string on top of the pushdown stack to see 
if there is a right side of a production that matches the 
symbols on the top of the stack. If so, a reduction is made, 
replacing these symbols by the symbol on the left side of 
the production- 

If no reduction is possible, then the next input 
symbol is placed on the pushdown stack and another attempt 
is made to reduce the stack. This process continues until 
the grammar has been parsed or an error occurs. 
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i. LB(0) and SLR(1) Parsing 

In reference 9, De Berner states that to construct 
an LB(0) parser for a Context-Free gramioar G, configuration 
sets must be computed. A configuration set represents a 
state of the parse, that is, which parts of which produc- 
tions may have been used to generate the input string to 
the point of the parse. 

Bach non-empty configuration set has one cr more 
successors or configuration sets. In general, a configu- 
ration set S (i) has an s-successor for each symbol s in 
V that is preceded by a marher in one or more of S (i) *s 
configurations. A marker is a pointer to the next possible 
symbcl to be read in the input list. 

An s-successor state consists of a basis set combined 
with a closure set. The basis set consists of all config*- 
uraticns in S (i) having a marker before an s, but with the 
marker moved to follow the’ S (i) . The closure set is defined 
recursively to be the largest set of conf xguratrcns that 
can he derived from the basis set until a terminal symbol 
is reached. 

An LB (0) parser for a grammar G is represented by 
the set of all configuration sets, where each set is a state 
of the parse with an accessing symbol, and a list of possible 
symbols which can be read next with an indication of whether 
to read the next symbol and go on to another state, or to 
reduce and go on to another state. 

A Context-Free grammar is said to be S15(1) if 
and only if each of the inadequate states of its successor 
states has mutually disjoint (simple) 1-symbol lock-ahead 
sets which allow the parser to determine which reduction 
to make. An inadequate state is one in which the parser 
must look ahead k symbols in order to determine which re- 
duction to make. 

An SLR(1) parser for a grammar, therefore, is repre- 
sented by the same set of configuration sets as is re- 
quired for an LB(0) parser with the addition of the simple 
1-lcck-ahead sets. 
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SLE(1) parsers make a decision to reduce rased upcn 
all the symbols in the parse stack plus one more from the 
input text. The parse is accomplished by restructuring 
the stack after each reduction and saving the state of the 
parse to allow the parser to know where it has teen so that 
it can make the right decision for the next reduction. 

C. SL£(1) SYNTAX ANALYSIS OF CMS-2BS 

The SLB(l) Syntax Analyzer and parsing table generator 
produced by Woods and described in reference 11 was chosen 
to analyze the grammar because of its speed of execution. 

In developing an SLB(1) grammar for CMS-2BS, it was 
necessary to write a complete initial description of the 
language and then take small sections cf the gramttar and 
analyze them until they were SLR(1). In that fashion, 
the grammar was successively built up and revised until a 
complete SLE(l) grammar was obtained. The execution time, 
using Wood's PL-360 based Syntax Analyzer, was on the order 
of 9 to 10 seconds of CPU time for about 200 productions 
on an IBM-360 Model 65 computer. 

Luring the grammar analysis it became apparent that com- 
bining the same sub-strings of symbols cn the right part cf 
several productions into new productions greatly reduced 
the number of terminal transitions. This allowed a larger 
grammar to be handled for the same table sizes in Wood's 
Syntax Analyzer. The resultant grammar is thus highly op- 
timized in terms of parsing table size; The limit cf 255 
productions in the Syntax Analyzer, however, did require 
that the revised grammar be split. The data declarations 
and header declarations were handled by separate grammars 
since they are blocked by easily recognizable beginning and 
ending delimiters. The implementation of this split and 
its implications are discussed in Section V. 
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V. 



DESIM ^ IliE I WO-PASS C_MS-2ES COMPI LE E 

The purpose of this project is to take the first step 
toward a practical implementation of CMS-2BS. A two-pass 
compiler was selected taking into consideration main memory 
reguirements and project modularity. Also, having two 
passes offers a potential for code optimization in the 
second pass. This approach facilitates the task of making a 
significaut start on a useful compiler in a limited time by 
isolating the analysis and synthesis functions from the 
detailed code generation, storage assignment, and interface 
handling functions. 

A. FlRSl PASS V 

The first pass performs four basic functions. It scans 
the characters of the source program, builds the symbol 
table, parses program sentences, and generates, an interme- 
diate language representation of the source program- 

1 . lexi cal An alyze r 

The lexical analysis is performed by the procedure 
SCANNEE. In writing the scanner's case statement, it was 
decided to use a different case for each delimiter (except 
for and "-t=" which are handled with and re- 

spectively) . By doing this, there is no need for having a 
table of all the tokens in the language and the correspond- 
ing table lookup mechanism. SCANNER does all the symbol 
table lookup and enter operations required by the compiler. 
When an identifier is scanned, the symbol table is searched 
to determine if this identifier is a reserved word or if it 
is an already entered name. If not found, the new name is 
entered in the symbol table. from that point on each 
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identifier is represented by its index into the symbol table 
so that no f orther search is ever needed. 

As will be explained later, two independent analyzer 
procedures are used to parse the declarations and the 
dynamic statements. For this reason it became necessary to 
build a linkage between SCANNEE and these two analyzers that 
would allcw the implementation of the necessary switching 
mechanisms. The linking function is performed by the proce- 
dure SCAN- SCAN is called by the analyzers when the next 
token is desired, SCAN calls SCANNER to obtain the next 
symbol in the input stream. When SCANNER returns certain 
reserved words, SCAN switches control to the appropriate 
analyser. For those tokens that appear in both grammars, 
SCAN allows for two different internal representat ions. 

SCAN also facilitates the implementation of certain symbol 
table handling mechanisms as will be explained later. 

2- Symbol Table Des ig n 

After all memory allocations to variables used by 
the compiler are satisfied, the remainer of the assigned 
region is allocated to the symbol table. The symbol table 
is divided into two main parts: the identifier -directory and 
the constant fab^e. 

a. Block Structured Identifier Directory 

The following method was chosen tp implement the 
two level (global, local) block structure of CMS-2 using 
hash addressing for table search. Every identifier is 
concatenated to a two character prefix which indicates the 
level of such identifier. Prefix *'00*’ correspond to global 
scope, while all other prefixes from *^01” to ”99” correspond 
to local scope. Therefore, every identifier declared in a 
SYS__DD is entered in the identifier directory with prefix 
”00”. For example, variable "ABLE” would be known to the 
compiler as "OOABLF”. A block counter is maintained and 
each time the reserved words SYS PEOC and SYS PROC E are 
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encountered this counter is incremented and the current 
prefix is correspondly altered. Thus, variables declared 
within LOC_DD*s or AUTO_DD*s are entered in the directory 
with the prefix corresponding to the sequential number of 
the SYS_PSOC where these data designs appear. When SCANNER 
recognizes an identifier, it first looks for its presence in 
the identifier directory with the current prefix and, if not 
found, then with the global prefix (”00") . 
b. Hash Addressing 

The chained hash addressing technique described 
by Cries [Ref. 12] is used to access the identifier direc- 
tory. A hash table size of 1229 was chosen to minimize the 
number of collisions in medium size programs. This size can 
be changed to any desired prime number, requiring only one 
minor change in the procedure HASH. The hashing scheme uses 
the number Qf characters in the word, the second and third 
characters, and the last and next to the last characters as 
arguments. The hashing function is applied to the identi- 
fier after it has been concatenated to the proper prefix as 
previously discussed. Procedures RESERWRD and LOOKUP 
handle all the required symbol table searching. The list of 
reserved words is preloaded in the identifier directory by 
the procedure INITIALIZE. No prefix is conca te'na ted with 
reserved words. In addition, no collisions occur when 
hashing reserved words, so RESERWRD needs only to compare 
the identifier scanned with one entry in the directory to 
find if it is a reserved word. Caution must be exercised if 
the size of the hash table is changed or if the language is 
revised to include new reserved words to insure that this 
property is preser ved. 

Procedure LOOKUP follows the basic flow chart 
fcund in page 222 of Ref. 12. LOOKUP adds the current block 
number prefix to the identifier and then hashes it and 
searches the identifier directory. If the identifier is not 
found then LOOKUP tries again using prefix "00.” If still 
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net found, the identifier is entered in the directory with 
the current prefix* 

c. Identifier Directory Design 

Ihe identifier directory was designed taking in 
consideration the large variety of descriptors required to 
represent the wide vatiety of conditions encountered in the 
language. Appendix D explains the descriptor formats in 
detail. Ihe descriptors are stored in the constant table; 
hence, the identifier directory can have a simple and 
uniform structure. Each identifier directory . entry uses 15 
bytes distributed in four fields as shown below. 

(1) Ten bytes are reserved in the identifier's 
name field to accomodate a maximum of ten 
characters (eight characters from the source 
plus two in the prefix). 

(2) One byte is used for the semantic code. 

The semantic code is an integer from 1 tq 148 
that identifies the token recognized by SCANNER 
to procedure SCAN'. 

<3) Two bytes hold the chain field. This 
field is used in case of collisions to store a 
pointer connecting entries with the same value. 
<4) Two bytes are used for the descriptor 
pointer field. This field contains a pointer to 
the constant table where the descriptor 
containing all the attributes of this identifier 
is stored. 

d. Constant Table Design 

Ihe constant table is essentially a large array 
used to store constant values as they are recognized by the 
scanner and descriptors for identifiers as previously 
indicated. When procedure SCANNER scans a constant, it 
stores it in the constant table. This includes character 
constants as well as numeric or bits constants. The first 
byte of every entry in the constant table is used to store 
the length of the entry , i.e., the number of bytes that 
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follow. In the case of numeric constants, the need arises 
tc differentiate hetJ^een the six different types of numeric 
constants used in the language. In order to do this, the 
lew order five bits of the header byte are used to indicate 
the length of the entry as explained above. The remaining 
three high order bits are used to indicate the type of 
numeric constant a^eprding to the following code; 

000 for octal integer 

001 for octal fixed 

010 for octal real 

011 for decimal integer 

100 for decimal fixed 

101 for decimal real. 

S ynt ax An alyz ers 

The syntactic analysis is performed by the proce- 
dures ANALYZE and BA|iALYZE. ANALYZE is the main grammar 
parser. It is called once by procedure MAIN and returns 
only when the source program has been completely parsed. 
ANALYZE calls SCAN each time a new token is to be read. 

When SCAN recognizes any of the reserved words SYS_DL, 

AUTO LD, LOC LD, PEOCEDUBE, or FUNCTION it calls EANALYZE 
which is the second parser, BANALYZE handles the 
declarations grammar- It also uses SCAN in the same manner 
as ANALYZE. When BANALYZE completes the parsing of a data 
design or a procedure or function declaration it returns to 
the place where it was called by SCAN, and SCAN passes the 
corresponding token to ANALYZE which continues execution. 
With this scheme, whole declarations are seen as a single 
terninal symbol by the main grammar. This concept, of 
course, can be extended to any number of parsers. For 
example, when a language is rather extensive (a classic 
example would be PL/I) , it may become extremely difficult to 
develop a single grammar of a given type. This job is 
greatly simplified by dividing the task into a main grammar 
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and several cgniponent grammars. In addition, the most 
appropriate parser can he used for each component grammar, 
for example, a component grammar could handle expressions 
and use an operator precedence parser. Using the interme-- 
diate linJcage concept between the scanner and the syntax 
analyzers as explained before, all that is needed is a 
special symbol to delimit each component grammar- These 
special symbols can be part of the syntax of the language or 
they can be added to the input stream by the compiler 
itself. 



4. £ackus -"Nau r fo rm 1BNFJ_ 

Appendix A contains a complete listing, using 
Backus-Naur lorm notation, of the SLfi(l), context free 
grammar developed for the CMS-2RS language. The grammar is 
divided into a main grammar and a component grammar. The 
symbols <SYS LATA DECL>, <1QCAL DATA DECL>, <AUTO DATA DECL> 
and <SUB_EOUIINE DECL> are treated in the main grammar as 
terminal symbols. The component grammar handles these 
declarations. The mechanisms to implement this scheme are 
explained in Section 3 above. 

5 . I ntermedi ate langua ge (IL) 

Generation of the object program in an intermediate 
language form is one of the primary tasks of the first pass. 
Due to time limitations, the generation of intermediate 
language could not be implemented. An IL format that could 
be used in future work on this compiler is proposed in this 
section. 

a. IL Format 

Each entry in the IL table consist of three 
bytes. The high order seven bits of the first byte are used 
tc represent the operation code. the low order remaining 
bit is used to indicate an indirect operation. A set of 
operation codes with their meanings is shown in Appendix E. 
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the codes shewn should be sufficient to represent the entire 
CMS-2ES language. The second and third bytes are used for 
the operand field. In most cases this field will contain 
the address of the operand's entry in the identifier direc- 
tory or the constant table. 

6. First Pass Output 

The first pass output should consist of two disk 
files, one for the symbol table and another for the interme- 
diate language generated by the dynamic statements. Future 
werk required to complete the first pass includes IL genera- 
tion, and the writing of two routines, one to write the 
symbol table into a disk file and another to write an IL 
buffer into a second file. 



B- SECOND PASS 

The main task performed by the second pass will be the 
translation cf interjnediate language into machine language 

. fioutines must be developed to read the IL file and 
produce h'L which executes on the target machine. This 
routines must insert the ML necessary to compute subscript 
values, perform data type conversion, map actual to formal 
parameters, and im.plement dynamic allocation. Some code 
optimization capability should also be included here. 

Storage areas fox variables and tables must be assigned 
in this pass. Routi,nes must be provided that will process 
the symbol table file and perform static allocation cr 
generate dynamic allocation mechanisms. This pass must 
allow for linkage with other program modules. Communication 
links must be established for external references. These 
links shcpld be compatible with the requirements of the 
linking routines of the target machine's operating system. 



64 




VI . c ON S 



Several attemps have been made, with less than optimal 
results, to implement a universal language and compiler 
system. CMS-2 is a system of this type , but it has met with 
limited success when used to implement large, self-contained 
computer systems. To get around the language limitations, 
extensive use of the direct code option has been made. This 
practice defeats the purpose of a high level language and 
creates problems in system design and maintenance such as 
correctness of initial program logic and program segment 
integrity. If the potential of a high level language and 
compiler system are to be fully realized, there must be 
controls over which language constructs are allowed at each 
level of software. Furthermore, insertion of direct code 
should not be allo-wed. The CMS-2BS system is a step in that 
direction. 

A. fiESULTS 

The mcst apparent ambiguities, redundancies, and limi- 
tations iihich exist in the CMS-2 program, data, and control 
structures have been identified. Proposed corrections to 
these deficiencies have been incorporated in CMS-2RS, An 
SLR (1.) context free grammar has been defined for this 
language using BNF notation. This grammar is suitable for 
the construction of parsing tables using an automatic 
compiler generating system. Such a system, using Wood's 
SLR <1 ) ANALYZER, was employed to produce parsing tables for 
the first pass of the CMS-2RS compiler. 

In order to support the structured programming concept 
in a modular library environment, changes where made to the 
external referencing mechanisms of CMS-2 so that external 
references are only allowed between different compile-time 
Systems. Header declaration statements were also revised to 
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prevent mcdif icati cns of an Element's internal data alloca- 
tion and control structure representation. This CMS-2 
construct facilitates the violation of program segment 
integrity and allows careless program design and 
maintenance. 

The concept of grammar segmentation was implemented in 
the CMS-2ES compiler. Data designs and dynamic statements 
were grouped into separate grammars which are parsed by 
different sections of the compiler. This concept is easily 
extendable to other sections of the grammar such as expres- 
sions and header statements. 

B- FUTURE WORK 

Several tasks need to be completed in order to fully 
implement the CMS-2RS system. The work required to complete 
the first pass includes the completion of intermediate 
language design and the writing of the semantic routines 
reqqired for the translation of dynamic statements into 
intermediate language for-m. Alsc, header and user file 
declarations need to be implemented. This would be 
accomplished by adding the header and file declaration 
statements to the declarations* grammar and writing the 
correspondig semantic routines. File manipulation operators 
should be added to the main grammar. 

The next step is to write the second pass. The second 
pass must handle a variety of functions including memory 
allocation, data type convention, subscript calculation and 
checking, parameter mapping, and code generation and opti- 
mization. 

Further development efforts should include studies of 
the desirability of adding list processing constructs to the 
CMS-2BS language. 
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APPENDIX A 



BNF DESCRIPTION CF CMS-2FS 



1. MAIN GRAMMAR 






001 

0C2 

003 

OCA 

005 

006 
0C7 
008 

CCS 

010 

011 

012 

013 

014 

015 

016 



021 

022 

02j 

024 

025 



<SYS> <SYS 

<SYS DECL HEAD> 

<SYS ELEM> s 



DECL HEAO> <SYS ELEM> <END PHRASE> 

SYSTEM <ID> $ 

<SYS DECL hEAO> <SVS ELEM> 



<HEACER DECL> 

<SYS DATA DECL> 

<SYSPROC DECL FEAD> <SVSFROC ELEM> <END PHRASE> 
<SYSPRGCREN DECL HEAD> <SYSFROCREN ELEM> <END PHRASE> 
EXTREF <ID> $ 



<SYSPROC DECL HEAD> 
<SYSPROCREN DECL HEAO> 
<SYSPROC ELEM> 
<SYSPROCREN ELEM> 



SYS PRCC <ID> $ 

I <SYSPR0C DECL HEAD> 



: : = SYS^PRCC.R <IC> $ 

1 <SYSPRQCREN DECL HEAD> 



::= <SYSPRGCREN ELEM> 
I <LGCAL DATA DECL> 



<SYSPROC ELEM> 

<SYSPRQCREN ELEM> 



::= <SUB-ROUTINE DECL> 
I <AUTO DATA DECL> 



<STM CLAUSE> 



017 <END PHRASE> ::= END $ 

018 <STM> ::= <LA6EL CEFN> 

019 1 <fiASIC STM> 



<EASIC STM> 



020 <IA6EL DEFN> ::= <LABEL> 



<8ASIC STM> 



::= <SIPPLE STM> 

<VARY CLAUSE> <D0 CLAUSE> 
<CA$E CLAUSE> <CASE LIST> 
<VsHILE CLAUSE> <00 CLALSE> 
<IF CLAUSE> <THEN CLAUSE> 



<ELSE CASE> 




00 



026 <SIMPLE STM> <BEGIN HEAD> <STM CLALSE> END 

027 { <SET CLAUSE> TO <EXPR> 

028 

029 

030 

031 

032 

032 
03 -^ 

035 

036 

037 

033 

039 

040 

041 

042 

043 

044 



045 

046 


<VARY 


CLAUSE> :: 


= VARY <LOOP CLAUSE> 

1 <VARY CLAUSE> , <LCCP CLAUSE> 


oo 


<LGGP 


CLAUSE> : : 


= <INITIAL CLALSE> <TE5T CLAUSE> 

1 <INITIAL CLAUSE> <INCR CLAUSE> <TEST CLAUSE> 


049 


<1MTIAL CLAUSE> 


<REAL VAR> FROM <SIGNED REAL PRI> 


05C 


<INCR 


CLAUSE> :: 


= STEP <SIGNEC REAL PRI> 


051 


<T£ST 


CIAUSE> 


= THRU <SIGNEC REAL PR I> 


052 


<CASE 


CLAUSE> :: 


= CASE <OATA LMT> 


053 

054 


<CASE 


LIST> ::= 
1 


GF <INDEX CASE LIST> 
OF <LABEL CASE LIST> 


055 

056 


<INDEX 


CASE LIST> 


<EASIC STR CLAUSE> 

1 <INOEX CASE LIST> <EASIC STR CLAUSE> 


057 

058 


<LAEEL 


CASE LIST> 


<LAEEL CASE> 

1 <LABEL CASE LIST> <LABEL CASE> 


059 

060 


<LABEL 


CASE> :;= 
1 


<CAS£ LAEEL> <EASIC STR CLAUSE> 
<CASE LABEL> <LA8EL CASE> 


061 

062 


<CASE 


LA6EL> 


<REAL CQNS> : 

1 <STATLS CONS> : 



<Sk^AP CLAUSE> <FOR CLALSE> 

<SEARCH CLAUSE> <FOR CLAL)SE> 

<INPUT CLAUSE> <RECEPTACLE CLAUSE> 
<QLTPUT CLAUSE> <SOORCE CLAU$E> 
<OUTPUT CLAUSE> 

<ENCGDE CLAUSE> <SOURCE CL/QUSE> 
<DECOOE CLAUSE> <RECEFT/iClE CLAUSE> 
<PACK CLaUSE> <S0URCE CLALSE> 
<UNPACK CLAUSE> <RECEPT/iCLE CLAUSE> 
CALC <PRaCEDORE STM> 

<CCNTROL PHR4SE> <LA6EL> 

RETURN <DATA UMT> 

<CC6EGIN HEAO> <STM CLAISE> COEND 
<RESERVE PhRASE> I <SIRPLE STM> 

<IhAIT CLAUSE> ) 

RETURN 

STOP 




ELSE <BASIC STN> 



(T» 

vi> 



063 

064 

065 

066 

C67 

068 

069 

C7C 



073 

075 

075 

076 

077 

076 

079 

08C 
08 1 
082 

083 

084 

085 

086 
087 

083 

089 

090 

091 



<ELSE CASE> : : = 

<EASIC STM CLAUSE> <BASIC STM> $ 

<S7M CLAUSE> ::= <STM> $ 

<V\HILE CL3\USE> ::= WHILE <B0QL EXPR> 

<C0 CLALSE> ;:= DO <SIMPLE STN> 

<IF CLAUSE> ::= IF <eOOL EXPP> 

<TFEN CLAUSE> THEN <STM> 

J <TRUE PART> <STM> 

<TRUE PART> THEN <SIMPLE STM CLAUSE> 

j THEN <IF CLAUSE> <TRU£ PART> <SIMPLE STM CLAUSE> 

<SIMPLE STM CLAUSE> ::= <SIMPLE STM> ELSE 

<BEGIN HEAD> : := BEGIN 

I <8EGIN HEAD> <STM CLALSE> 

<COBEGIN HEAD> ::= CCBEGIN 

I <COBEGIN HEAD> <STM CLAUSE> 

<SET CLAUSE> SET <OATA UMT> 

I <SET CLAUSE> <DATA UNIT CLAUSE> 

<EXPR> : := <REAL EXPR> 

<BITS EXPR> 

<CHAR EXPP> 

<STATUS EXPR> 

<BOQL EXPR> 

<TABLE IDENTIFIER> 

<REAL EXPR> <REAL TERM> 

I <REAL EXPR> <ACCSUB OPER> <REAL TERM> 

<ACCSUB OPER> : + 



<BEAL TERM> ::= <REAL SECN> 

I <REAL TERM> <MULDIV OPER> <REAL SECN> 




092 <^UL0IV 0PER> 

093 
09 ^ 



O 




095 


<PEAL S£CN> 


09E 


1 


097 


<SI6NE0 REAL PRO 


098 

099 




ICQ 

101 

102 

103 

10^ 


<REAL PRO :: = 


1C5 


<REAL CCNS> 


106 


1 


107 

103 


<REAL DATA UNIT> 


109 


<eiTS EXFR> :;= 


110 


1 


111 

112 


<LCGICAL 0PER> : 


113 

114 


<BITS FACTCR> : ; 


115 

lit 

117 

118 


<SFIFT CPER> ::| 


119 


<eiTS SECN> 


120 


1 


121 

122 

123 

124 


<eiTS PRO : : = 

1 


125 

126 


<BITS DATA UNIT> 



<SIGNED REAL PRI> 

<REAL SECN> ** <SIGNEC REAL PRI> 

:;= <REAL PRI> 

I - <REAL FRI> 

I ABS <REAL PRI> 

<REAL CCNS> 

<REAL DATA UNI T> 

( <REAL EXPR> ) 

( <REAL EXPR> ) .. <PEAL C0NS> 

<REAL FUNC NAME> <1NPUT. FARAMS> ) 

<PEAL> 

<TAG> 

::= <REAL VAR> 

I <REAL FIELD NAME> <SUeSCRIPT CLAUSE> ) 
<6ITS FACT0R> 

<BITS EXPR> <LGGICAL CFER> <EITS FACTQR> 

:= AKCL 
I ORL 

= <BITS SECN> 

1 <BITS FACTOR> <SHIFT CFER> <SIGNED REAL PRO 

ShLL 

SHRL 

CIRSFLL 

CIRSFRL 

<BITS PRO 
NCTL <BITS PRO 

<BITS C0NS> 

<BITS DATA UNIT> 

( <BITS EXPR> ) 

<BITS FUNC NAME> <INPUT PARAMS> ) 

::= <BITS VAR> 

I <eiTS FIELD NAME> <5UBSCRIPT CLAUSE> ) 




127 


<CHAR 


EXPR> 


• • M 

• • •• 


<CHAR EXPR> CAT <CHAR FPI> 




128 








1 


<CHAR PRI> 




129 


<CHAR 


PRI> : 


• « 


z 


<CHAR CCNS> 




130 










<CHAR DATA UNIT> 
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( <CHAR EXPR> ) 




132 










<CHAR FUNC NAME> <INPUT FARAMS> ) 




133 


<CHAR 


DATA UNIT> 


<CHAR VAR> 




13A 










1 <CHAR FIELD NAME> <SUESCRIPT CLAUSE> 


) 


135 


<STATUS EXPR> 




• 


:= <STATUS CONS> 




136 










I .<STATUS DATA LMT> 




137 










<STATUS FUNC NAME> <INFUT PARAI^,S> ) 




138 


<STATliS DATA 


UNIT> <STATUS VAR> 




139 










1 <STATUS FIELD NANE> <SUBSCRIPT CLAUSE> 


lAO 


<BGOL 


EXPR> 


• 4 

• 


' — 


<BCGL SECN> 




141 








1 


<BOOL EXPR> <BGGL OPER> <BOOL SECN> 




142 


<BCGL 


OPER> 


m 

m 


' s 


AND 




143 








! 


□ R 






<BOGL 


SECN> 


m 


I — 


<BCCL PRI> 




145 








1 


NOT <BQQL PRI> 




1A6 


<BCOL 


PRI> : 


• « 


z 


<BCOL CCNS> 




147 










( <BOOL EXPR> \ 




148 










<BCaL CATA UNIT> 




149 










<BCOL FUNC NAME> <INPUT FARAMS> ) 




150 










<REL EXPR> 




151 


<BGQL 


DATA UNIT> 


: := <BQCL VAP> 




152 










1 <600L FIELD NAM£> <SLBSCRIPT CLAUSE> 


) 


153 


<REL 


EXPR> : 


• « 
• 


z 


<REAL FRI> <REL CPER> <PEAL PRI> 
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<BITS PRI> <REL CPER> <REAL PRI> 




155 










<ChAR FRI> <REL CPER> <CFAR PRI> 
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<STATUS EXPR> <REL OPER> <STATUS EXPR> 




157 


<PEL 


GP£R> : 


0 - 
• ^ 


z 


— 




158 










1 — 




159 










< 




160 










> 




161 










< = 




162 










> = 






ru 



163 

16 ^ 

165 

166 

167 

168 
169 



171 

172 

173 
17 ^ 

175 

176 

177 

178 

179 

180 
181 

182 

183 

184 

185 

18c 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 



<DATA UMT> :: = 



<CATA UNIT CLAUSE> 



<SUBSCRIPT CLAUSE> 
<TABLE IDENTIFIER> 

<SWAP CLAUSE> : : = 
<SEARCH CLAUSE> : ; 
<CATA STRUCTURE> : 

<FCR CLAUSE> : : = 
<FRGCEOURE STM> :: 

<ACTUAL FARAM LIST> 



<INPUT PARAMS> ::= 



<REAL DATA UMT> 
<6ITS DATA LMT> 
<CHAR DATA UNIT> 
<ECOL DATA UMT> 
<STATUS DATA UNIT> 
<TABCE IDENTIFI6R> 
<SUBSCRIPT CLAUSE> 



) 



<REAL DATA UNIT>. 
<BITS DATA UMT> 
<CHAB DATA UNIT> 
<STATUS DATA UNIT> 
<BOCL DATA UMT> 
<TABLE 1DENTIFIER> 
<SUeSCRIPT CLAUSE> 



<TABLE IDENTIFIER> ( 

<SUBSCRIPT CLAUSE> , 

<TABLE NAME> 

<SUe-TABLE NAME> 

<ITEM_AREA NAME> 

SWAP <DATA UMT> 

= SEARCH : <DATA STRLCTURE> 

:= <SUBSCRIPT CLAUSE> } 

1 <FILE NAN*E> ( <SIGNED REAL PRI> 



<SIGNED REAL FRI> 
<SIGNED REAL PRI> 



FOR <DATA UMT> 



<PRQCEDURE 

<PRQCEDURE 



NAME> 

NAME> 



<ACTUAL PARAMETER LI ST> j 



<INPUT PARAMS> 
<INPUT PARAMS> 
<GUTPLT PARAMS> 
< INPUT PARAMS> 
<INPUT PARAMS> 
<OUTPUT PARAMS> 
<LABEL PARAMS> 



<CUTPUT PARAMS> 
<CUTPUT P/iRAMS> 
<LABEL PARAMS> 
<LABEL PARAMS> 



<LABEL 



( <EXPR> 

( » 

<INPUT PAR/3RS> 
<INPUT PARAMS> 



<EXPR> 



PARAMS> 




20C 

201 

202 

203 


<0t‘TPUT PARAMS> 




1 <OATA UMT> 

<OUTPUT PARAMS> , 

<QUTPLT PARAI^S> <CATA UNIT 


CLAUSE> 




204 

205 


<LABEL PARAMS> 


• • • 

1 


1 1 <LABEL> 

<LAB£L PARAPS> , <LABEL> 






20t 

2C7 

208 


<CCNTR0L -PHRASE> 


• « 
• • 


= RESUME 
RETURNTO 
1 GOTO 






209 

210 


<RESERVE PHRASE> 


• ^ 


= RESERVE ( <RESQURCE> 

I <RESERVE PHRASE> , <RESOURCE> 




211 

212 

213 


<RESOURCE> ::= 

1 


<PR0CEDURE STM> 
<DATA STRUCTURE> 
<CATA UNIT> 






214 

215 

216 
217 


<WAIT CLAUSE> : 
<INPUT CLAUSE> 


• « 

• — 

1 

'"I 


WAIT ( <PRGCEDURE NAME> 
<WAIT CLAUS E> , <PRCCEDURE 
INPUT <FILE NAME> 

INPUT <FILE NAME> <FCRMAT 


NAME> 

NAME> 




218 

219 


<CLTPUT CLAUSE> 


• • • 

1 


OUTPUT <FILE NAME> 

OUTPUT <FIL£ NAME> <FCRMAT NAME> 




220 


<ENC0DE CLAUSE> 




ENCODE : <CHAR DATA UNIT> 


<FORMAT 


NAME> 


221 


<CECODE CLAUSE> 




DECODE : <CHAR DATA UNIT> 


<FORMAT 


NAME> 


22 2 


<PACK CLAUSE> : 


• « 
• • 


PACKIN <DATA UNIT> 






223 


<LNPACK CLAUSE> 




UNPCK <OATA UNIT> 






224 

225 


<FECEPTACLE CLAUSE> 


::= INTO <DATA UNIT> 

r <RECEPTACLE CLAUSE> <DATA UNIT 


CLAUSE> 


226 

227 


<SCURCE CLAUSE> 


m m ^ 

1 


QUTOF <DATA UNIT> 

<SOURCE CLAUSES <DATA UNIT 


CLAUSE> 




228 

229 

230 


<FILE NAME> 

1 


PRINT 

PNCH 

READ 








2. DECLARATIONS GRAMMAR 



4^ 



001 

00^ 

003 

00 ^ 

005 

CC^ 

007 

CC8 

009 

010 
on 
012 
012 

on 

015 

016 

017 

018 

019 

02G 

021 

022 

022 

024 

025 

026 

027 

028 
029 

020 

021 

032 

033 

034 



<CECL> <SUE-RCUTINE DECL> 

\ <DATA DECL> <OATA ELEM> ENC.CD $ 

<SUe-ROUTINE CECL> ::= <PROCECURE D£CL> $ 

I <PROC£DORE CECL> <FPARM LIST> ) 
1 <FUNCTION CLAUSE> ) $ 

<PROCEOURE DECL> PROCEDURE <ID> 

<FPARM LIST> <,I N PARMS> <CUT PARMS> <LABEL PARI1S> 

<lh PARMS> <CUT PARMS> 

<IN PARMS> <LABEL PARMS> 

■ <CUT PARMS> <LABEL PARMS> 

<IN PARM5> 

<QUT PARMS> 

<LABEL PARMS> 

<IN PARMS> ( <VAR> 

1 <IN PARMS> , <VAR> 

<CUT PARMS> ::= I <VAR> 

I <CUT PARMS> T <VAR> 

<LA6EL PARMS> : : = I i <ID> 

i <LABEL PARMS> , <IC> 

<FUNCTIQN CLAUS£> ::= <FUNCTIQN HEAD> ( <VAR> 

1 <FUNCTIGN CLAUSE> , <VAR> 

<FUNCTIGN HEAD> : : FUNCTION <OATA TYPE> <ID> 

<VAR> <NUM VAP> 

<BITS VAR> 

<CHAR VAR> 

<STAT VAR> 

<BOOL VAR> 

<TBL ^AME> 

<ITEM A. NAME> 

<SUBTBL NAME> 

<CATA DECL> SVS_DD <I0> $ 

LOC 00 $ 

AblZ CD $ 

<DAT^ OECL> <OATA ELEM> 



$ 




VJl 



035 

036 

037 

038 

039 

040 

041 

042 

043 

044 

045 

046 

047 

048 

049 
05C 

051 

052 

053 

054 

055 

056 

057 

058 

059 

060 
06 1 

062 

063 

064 

065 

066 

067 

068 



<CATA ELEM> ::= <VREL CECL HEAO <ITEN,> $ 

<F0RMAT DECL HEAD> <DESCRGRCUP> ) $ 

. <TAG CECL hEA0> <ID> = <REAL C0NSTANT> $ 
<TABLE DECL HEAO <TAfiLE CECL> END^TABLE $ 

<VRBL DECL HEAD> <VRBL HEAO 

I <VRBL DECL HEAO <ITEM> , 

<VR8L HEAO ::= VRBL <DATA TYPE> 

<CATA TVPE> ::= INTEGER ( <REAL C0NST/5M> ) 

FIXED ( <REAL C0NSTANT> , <REAL C0NSTANT> 
FLOAT ( <REAL CCNSTANT> ) 

BITS ( <REAL CCNSTANT> ) 

CHAR ( <REAL C0NSTANT> ) 

BCCLEAN 

<STATLS CLAUSE> ) 

<STATUS CLAUSE> STATUS ( <STATUS CC^STANT> 

I <STATLS CLALSE> , <STATUS CCNSTANT> 

<ITEM> <ID> 

1 <ID> = <C0NSTANT> 

<CCNSTANT> <NUMGRTAG> 

<BITS C0NSTANT> 

<CHAR C0NSTa,NT> 

<STATUS C0NSTANT> 

<B0GL C0NSTANT> 

<E0CL C0NSTANT> TRUE 

1 FALSE 

<^LP0RTAG> <TAG> 

1 <REAL C0NSTANT> 

<TAG DECL HEAO : := TAG 

I <TAG DECL HEAD> <IC> = <REAL CCNSTANT> 

<FGRMAT DECL HEAO ::= FORMAT <IC> ( <CHAR CCNSTANT> , 

I <F0RMAT DECL HEAO <DESCRGRQUP> , 

<CSCRLIST HO <REAL CCNSTANT> ( 

<CSCRLIST> : := <DSCRLIST HD> <DESCRIPTCR> 

1 <CSCRLIST> , <CESCR1PTGR> 



) 




069 


<REPTN 


GR0UP> 


•• • •• 


<CSCRLIST> ) 


07C 

071 


<DESCRGRQUP> 




<REPTN GR0UP> 
<DESCRIPT0R> 


072 

073 

074 

075 


<0ESCRIPT0R> 


• • M 


<REAL CGNSTANT> <ID> <PEAL CCNSTANT> 
<ID> <REAL CGNSTANT> 

<CHAR CQNSTANT> 

<SLASH LIST> 


076 

077 


<SLASH 


LIST> 


• • •• 

\ 


/ 

<SLASH LIST> / 


078 

C79 


<TABLE 


CECL HEAD> 


<TABLE CLAUSE> ) i 
1 <TABLE CECL HEAO <TABLE CECL> 


ooo 

CDOOCX) 


<7ABLE 


CLAUSE> 


• • 


= <TABLE HEAO i <NUMCRTAG> 

1 INDIRCT <TAELE HEAO ( <NUy0RTAG> 
1 <TABLE CLAUSE> , <MNCRTAG> 


0£3 

084 


<TABLE 


HEAD> 


* 9 ^ 

• • • 

1 


TABLE <I0> 

<TABLE HEAO , <ID> 


085 

086 
087 


<TABLE 


0ECL> 


• • • 

1 


<FIELD DECL> $ 

<IT£M AREA CLAUSE> $ 
<SUBTA6LE CLAUSE> ) $ 


088 

089 


<FIELD 


CECL> 


• • • 

1 


FIELD <DATA TVPE> 
<FIELD 0ECL> <FIT£M> 


090 

091 


<FITEM> 


• • •• 

1 


<ITEM> 

<ID> = <REPETITICN LIST> <C0NSTANT> ) 


092 

093 
C94 


<REPETITI0N LIST> 


I ; = ( 

”l <NUMQRTAG> ( 

1 <REPETIT1CK LIST> <CCNSTANT> , 


095 

096 


<ITEM_AREA CLAUSE> 


::= ITEM^AREA <ID> 

1 <iteT^_area CLAUSE> , <IC> 


oo 


<SUBTABLE CLAUSE> 


SUBTABLE <ID> ( <NUM0RTAG> 

1 <SUBTABLE CLAUSE> , <NUMCRTAG> 




APPENDIX B 



DESCRIPTION OE THE CMS-2BS LANGUAGE 



The CMS-2ES language is described in the following 
sections using a modified metalinguistic notation which 
was originally developed by Backus and is described in ref- 
erence 12. This modified notation uses the following basic 
symbols: 

: := A connective meaning "is defined tc be". 

I A connective meaning "or defined to be". 

< > Delimiting brackets enclosing a metalinguistic 
variable. 

Delimiting traces enclosing brackets meaning 
"more than one metalinguistic variable", where 
each variable is separated by a comma, dollar 
sign ($) , or space as appropriate. 

The sections below describe the syntax and semantics, 
and give examples for each structure or statement in the 
language. Program structure is described in Section 1. 
Section 2 describes the basic symbols and delimiters of the 
language that are formed from the CMS-2BS alphabet. Data 
structures and referencing conventions are described by 
Section 3, followed by control structures in Section 4. 
Section 5 describes Real, Bits, Status, Character and 
Boolean expressions. The header and debug statements were 
not implemented in the present version of CHS-2fS and are 
not included in this appendix. In the examples below, the 
notatioi "<metaling uistic variable>" is used when the Item 
has not yet been defined, but its inclusion is necessary 
for a complete description cf the example. References to 
imposed limits on the numbers of elements allowed in the 
statements that follow are actually limitations imposed by 
CMS-2RS compiler and its table sizes. 
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1 



• Program Structure 

a. System and System Elements 
Syntax: 

■<SYS!IEM> ; :=SYSTEM <IDENT If IEE>$ 

|^<SYSTEil ELEM£NT>2£ND$ 

<SYSIEM £LEillENa;>: : =<HEADER DECLAEATION> 

|<SYSIEE DATA DECLAEATION> 

|<SYSTEM PROCEDURE EECLARATION> 

|<SYSTE^3 REENTRANT PROCEDURE 
DECLARATION> 
lEXTREF <IDENTIfIER>$ 

Semantics: 

A System is a compile-time grouping of System Ele- 
ments^ headers, debug statements, and externally referenced 
(EXIREf) System Element identifiers. System Elements are 
either System Data, System Procedure, or System Reentrant 
Procedure declarations. The order in which Elements are 
listed is up to the programmer and specifies the desired 
order of compilation and linking. A header may cnly be in- 
cluded once at the beginning of a System. The total number 
of Elements allowed in a System is ninty-nine (99). 

Examples: (see Section Id.) 

h. System Procedures and System Reentrant Procedures 
Syntax: 

<SYSIEM PROCEDURE DECLARAIION>: :=SYS_PRCC <IDENTIf I£R>$ 

[<SYSTEM PROCEDURE 
ELEilENT>| ENDS 

<SYSTEM REENTRANT PROCEDURE DECLARATI CN> : :=S YS_ EB CC_R 

<IDZNTIfIER>$ (<SYSTEE REENTRANT 
PROCEDURE £LEI3£NT>| ENDS 

Semantics: 

Both types of System Procedures are the basic build- 
ing blocks of the CMS-2ES language. Procedures may reference 
each other only through their prime procedures and are sep- 
arately compileable and executable. Reentrant procedures 
con'sist of separate sections of data and non-changeable code. 
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Examples: (see Section Id.) 

c. System Procedure Elements 
Syntax: 

XSYSIEII PEOCEDUEE ELE£1ENT> : : = <LOCAL DATA DECLARATICN> 

1<AUT0 DATA DECLARAT10N> 
j<PfiOCEDUBE SUB-EOUTIKE 
D£CLAEATION> 

(<FUNCTION SUB-ROUIINE 
DEC1AEATI0N> 

<SYSI£ii REENTRANT PROCEDURE ElEME NT>: : =<AUTO DATA 

DECLARATION> 
i<PROCEDURE SUB- 
ROUTINE EECLARATICN> 
|<EUNCTION SUB- 
ROUTINE DECLARATION> 

Semantics: 

The elements in both types of System Procedures 
may be ordered in any manner, but Auto Data declarations 
must precede the applicable sub-routine declaration. Auto 
Data declarations are dynamically allocated at execution 
time, with a separate copy provided to each calling sub- 
routine. 

Examples: (see Section Id.) 

d. Procedure and Function Sub-routine Declarations 
Syntax: 

<PRCCEDUR£ SUE-ROUTINE DECL ARATION>: : =PROCEDUR E <IDENII- 
FIERXINPUT PARAMETEfiSXOUTPUT PARAMETE f SXIABEL 
PARAMETERS>) S<SIAIEMENT>$ 

<INPUT PARAMETEfiS>: := ( ^<VARIAELE>^ 

<OUIPUT PAEAWETERS>: :^| kRIkBLE>'^ 

<1AEE1 PAfiAM£TERS>: := i I ^<LAEEL NAME>^ 

<FUNCTICN SUB-ROUTINE DECLARATION>: := EUNCTION <DAIA TYPE> 
<IDENTIFIER><INPUI PARAEETERS >) 3<STAT EN E NT> $ 
Semantics: 

A Procedure may have any one, twc, three, cr none 
of the members of the set of input variables, output var- 
iables, and label names as formal parameters. A Eunction, 
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however, must have at least one input parameter. All input 
and output parameters must have been previously declared 
in data declarations, but Function names are declared 
when the Function is defined. Both procedure and Function 
sub-routine declarations must include one statement. There 
is no imposed limit on the number of sub-routine declarations 
allowed within a System Procedure or Eeentrant Procedure. 
Example: 

SYSTEM ALPHA $ 

<HEALER DECLAEATION> 

<SYSTEM DATA DECLARATION> 

EXTREF A $ 

SYS^PROC B $ 

<LOCAL DATA DECLARAT10N> 

PROCEDURE F (IN | OUTi j LABEL) $ 

<STATEMENT>$ 

<AUTO DATA DECLARATION> 

FUNCTION C (IN1) $ 

<STATEMENT>$ 

END$ 

SYS__PROC_R D$ 

<AUTO DATA EECLARATION> 

PROCEDURE D | OUT 1 | I LA B EL 1) $ 

<STATEMENT>$ 

<AUTO DATA ELCLARATION> 

FUNCTION E (IN2)S 
<STATEMENT>$ 

END$ 

ZND$ 

€. Statements and Blocks 
Syntax: 

<STATEMENT>: : -<LABEL NAME>:<BASIC STATEMENT> 

|<£ASIC STAIEMENT> 

<EASIC STATEM£NT>: :=<SIMPLE STATEMENT> 

|<VARY STATEHENT> 

|<CAS£ STATEM£NT> 

1<WHILE STATEMENT> 
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|<IF STAT1I1ENT> 

<SI£3PLE STATEMEJJT>; :=BEGIN £<ST ATEMENT>2 END 

ICOBEGIN £<STATEMENT>^ COENE 
I <SET STATEMENT> 

|<SKAP S!TAIEMENT> 

|<SEABCH STATEMENT> 

|<INPUI STAIEMENT> 

|<OUTPUT STATEMENT> 

|<ENCODE STA!rEMENT> 
t<EECODE STATEMENT> 

|<PACK SI'ATEEENT> 
i<UNPCK STATIMENT> 

1<PBQCEDUEE STATEEENT> 

|<GOTO STATEMENT> 

|<EE!IURNIO STATEMENT> 

|<EESUM£ STATEMENT> 

|<RESERVE 3IATEM£NI> 

J<WAIT STATEMENT> 

1<REIUEN STATEMENT> 

|<STOP STATEEENT> 

Semanticf:: 

A statement directs some action or contrcls the ex-^ 
ecution of a group of statements. The group of statements may 
themselves be a statement, thus allowing nesting cf statement 
groups. These goups are delimited by the reserved words 
BEGIN-END or COEEGIN-COENE and may be inter-nested to any 
level. BEGIN^END statements imply seguential processing 
and COEEGIN-CCEND statements imply parallel processing. 

COEEG JN-COEND statements, however, may also be processed sequen-^ 
tially. All statements within COBEGI N^CCEND blocks may only 
change-access mutually disjoint sets of data and control 
structures, that is, two statements cannot access the same 
data or control structure. 
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Example: 

EEGIN 

<STATEMENT> 



<ST1TEMENT> 

CCBE6IN 

<STATEi1ENT> 



<STATEMENT> 

COEND$ 

BEGIN 

<STATEMENI> 



<STATEilENI> 

£ND$ 



ENI>$ 

2m Basic Symtols and Delimiters 

Ihe CMS-2RS alphabet consists cf letters^ digits and 
special symbols from the U.£. ASCII Standard Character Set 
The following special symbols are elements of the alphabet 



+ (plus) 

(minijs) 

/ (slash) 

♦ (asterisk) 

• (decimal point) 

( (left parenthesis) 
< (left bracket) 

> (right bracket) 



(right parenthesis) 
<dollar sign) 

(comma) 

(prime) 

(bar) 

(space) 

(underline) 

(colon) 
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= (equal) ” (quote) 

^ (net) & (ampersand) 

^ (pound) (percent) 

a. Jdentifj^ers and Reserved Words 
Syntax: 

<IDZNTIPI£S> :;=<L£TTER> 

KIDENTIFIERXDECIilAL DIGIT> 
|<IDENTiriERXLETTER> 

|<IDENTIFIER>_ 

<LETIER>: :=A ( B| . .. ( Z 
<DECIEAI DIGIT>::=1|2|.., (9|0 
Semantics: 

Identifiers are composed of sequences cf letters 
and digits of any length, and must begin with a letter. Only 
the first eight positions are used and hence twe different 
identifiers must be unique in the first eight positions. 

The blank space must be used as a delimiter between suc- 
cessive identifiers and may be used between delimiters and 
identifiers for clarity. 

Examples : 

ALPHA 

Sys_PROC 

BETA1 

b, Beal Constants 
Syntax: 

<REAI CCNSTANT>: :=<OCTAL CONSTANT> 

|<DECIMAX CONSTANT> 

<OCTAL CONSTANT>::=&<OCTAL INTEGER> 

iS<OCTAL EIXED-POINT> 

|£<OCTAL FLOATIKG-ECINT> 

<OCIAL INTEGEB>::= <OCTAL DIGIT> 

|<OCTAL INTEGERXOCTAL DIGIT> 

<OCTAL EIGIT> : :=0| 1 1 2| . , . I 61 7 

<OCIAL IIXED-POINT>: :=<OCTAL INTEGER>. 

I ,<OCTAL INTEGER> 

|<OCTAL INTEGER>XOCIAL INTEGER> 
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<OC'IAL fLOAIING-POINT>: ;=<OCO:AL INTEGEE>E<0CTAI EXPCiJENT> 

|<OCTAL INTEGE£>E<SIGNE£ CCTAL 
EXPONENT> 

■|<CCTAL EIXED-P0INT>E<CC1AL EXPOSENT> 
J<OCTAL EIXED-POINT>E<SIGN£D OCTAL> 
EXPONENT> 

•<OCIAL EXPON£NT>::=<OCTAL DIGITXCCTAl EIGIT> 

<SIGKE£ OCTAL EXPQNENT> : :=+<OCTAL EXPONENTS 

|-<OCTAL EXPCNENT> 

<EXPONENT>: : =<DECIMAL DIGITXDECI MAL DJGIT> 

<L£CIMAI CONSTANT> ;:=<DECIMAL INTEGEE> 

|<DECIMAL FIXED- POINT> 
i<LEClEAL ELOATING-POINT> 

<DECIMAL INTEGEfi>::= <DECI.riAL DIGIT> 

<DECIEAL EIXED-PCINT>; : = <EECIfiAL 1NTEGER>- 

iXDECIMAL INTEGEE> 

|<DECIMAL INTEGEB>XDECIEAI INTEGEfi> 

f 

<DECIEAI ELCATING-PCI.NT>: : = <DECIMAL INTEGEE>E<D£CIf3AL 

EXPONENT> 

1 <DECIMAL INTEGER>E<SIGNED 
DECIMAL EXPONENI> 
j<DECIMAL EIXED-POINT>E<DECIMAL 
EXPONENT> 

|<DECIMAL FIXED-POINT>E<SIGNEC 
DECIMAL EXPONENT> 

<DECI.MAL EXPONENT>: :=<DECIMAL DIGITXDECIMAL DIGIT> 

<SIGNEC EECIMAl £XPONENT> ; :=+<DECIMAL EXPONENT> 

|-<DECIMAL EXPONENTS 

Semantics; 

The total number of digits and characters ( 
and E) allowed in a reai corstant is twenty-two (22). 
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Example: 

1 

1,0 

.35 

3. 

2.5E+13 
3E10 
•2E-12 
+ 1 

-2.4 ■ 

6-7E+12 

£77 

c. Bits Constant 
Syntax: 

<BII£ C0NSTANI>: :=# <HEXADECIML DIGIT> 

KBITS CONSTANTXHEXABECIMAL DIGIT> 
<HEXACECIMAL DIG JT> : :=<DECIMAL DIGIT> i A j D | . . . j E 
Semantics: 

The Bits constant is a sequence of binary digits which 
is represented by a sequence of hexadecimal digits. Each 
digit represents four binary digits of ones or zeroes. The 
numter of hexadecimal digits allowed in a Bits constant is 
twenty-'two (22) including tho pound sign . 

Example: 

:#|n234ABEE 

d. Status Constant 
Syntax: 

<STAIUS CON STAN T>: : = * <IDENTIFIER> ■ 

Example : 

•HOT* 

•COLD* 

•ALERT1* 

e. String Constant 
Syntax: 

<STRING C0NSTANT>: ; = •'< ALPHABET SYMBOL>" 

I'KSTRING CONSTANrXiLPHABET SYMBOL>» 
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<ALPHAB£'I SYnBOL>: :=<LETIER> 

|<DECIMAL CIGIT> 

|<SPECIA1 SYI1B0L> 

<SPECIA1 SYWBOL>: : = +!-!/ 1*1, |) | (|$1, | * 1 space 

l<l>l=^^-|eui ; I 1 

Semantics: 

There is no imposed limit on the number cf characters 
allowed in a string constant. A double guote , however, 

is net allowed. 

Example: 

"STRING CONSTANT" 

f. Boolean Constants 
Syntax: 

<BOOLEAN CONSIANT>: :=TRUE 

I FALSE 

Semantics: 

The internal value of TRUE is one (1) and FALSE is 
zero (0). 

g. Comments 
Syntax: 

<COMNENI>: :=%<ALPHABET SYfiB0L> 

|7o<C0MMENTXALPHABET SYMB0I>5J, 

Semantics: 

The comjaent statement may be used to document a pro- 
gram. It may be inserted anywhere within the program or its 
statements but there must be at least one blank inserted if 
it follows an identifier. 

Example: 

SET: THIS IS AN ASSIGNMENT STATEMENT A TC B$ 

3. Data Structure 

a. Data Declarations 
Syntax: 

<SYSI£K DATA DEjCLARATION>: : = SYS_DD <IDENTIFIER>$ 

^<DATA ELEMENT>2 ENDS 

<LOCAL DATA DECLARATION>: : =LOC_DD <IDE NTI! IER>S 

f<DATA ELEMENT>^ ENDS 
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<AUIC TATA DECLAEATION>: : = AUTO DD <IDINTIFIER>$ 

T 

^<DATA ELEMENT)^ INE$ 

<DAIA ELEMENT>;.:*<VARIAB1E DECLARATION> 

(<TABLE EECLARATION> 

|<FORMAT DECIARATION> 

|<TAG DECLARATION> 

Semantics: 

A data declaration defines the data identifiers and 
their attributes which apply to the dynamic statements that 
follcH. There is no imposed limit on the number cf data 
elements allowed within a data declaration or on the num- 
ber of data declarations allowed within a System. System 
data declarations apply to the entire compile-time System 
and local or Auto data declarations apply only tc the System 
Procedure in which they are defined, 
b. Variable Declarations 
Syntax ; 

<VARIABLE DECLARATION>: :=VRB1 <DATA TVFE> <ITEE> $ 

<DATA T1PE>: :=OTEGER (<DECIflAL INTEGER>) 

IFIXED (<DECIMAL INTEGEE> , <DECIMAL INIEGER>) 
IFLOAT (<DECIMAL 1NTEGER>) 

I BITS (<DECIMAL INTEGER>) 

ICHAR (<DECIHAL INTEGER>) 

ISTATUS (^<STATUS CONSTANT>2) 

(BOOLEAN 
<ITEtf>: : = <IDENTIFIER> 

|<IDENTIFIER>=<CONSTANT> 

<CCKSTANT>: :=<REAL CONSTANT> 

(<BITS CONSIANT> 

(<CHARACTER CONST ANT> 

|<STATUS CONSTANT> 

I <BOOLEAN CONSTANT> 

|<TAG> 

<TAG>: :=<IDENTIFIER> 

Semantics: 

The variable is a one-dimensicnal data structure used 
to store data values for each data type. There is no im- 
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posed limit on the number of Items allcwed in a \?ariable dec- 
laration. The parenthesized integers in the data type speci- 
fication determine the length of the Item. For types Inte- 
ger, Fixed, Float and Bits the length is in binary digits. 

The actual length implemented^ however, may vary depending 
upon the arithmetic and addressing characterist ics of the 
target nachine. There is no imposed limit on the number 
of character symbols allowed in a character variable. 

Status variables do not have length in the usual 
sense but have a capacity based upon the number of status 
constants assigned them up to a maximum of 127. 

Examples: 

VBEL INTEGER(15) A, B 1, C= 1 23765 , E3$ 

VRBL CHAR (34) C1="THIS IS A STRING?” 

VRBL STATUS (»COLD* ,* WARM* ,»HOT* ) WEATHERS 
VRBL ECGLEAN ONT ARGET=FALSE, HOSIILE=TR UES 
C. Tag Declaration 



Syntax: 

<TAG DECLARATION>: :=TAG ^<IDENTIFIER>=<REAL CONSIANT>^$ 
Semantics: 

A tag is a name for a Real constant. Once de- 
clared, tags may be used in data declarations and dynamic 
statements, where the appropriate constant value will be sub- 
stituted. There is no imposed limit on the number of identi- 
fiers defined in a tag declaration. 

Example: 

TAG A=3-5,E=1,C=3.2E-10$ 



d. Format Declaration 
Syntax: 

<FORHAT DECLARATION>: :=FORMAT 
CCNTSC1>,^<DESCRIFT0R 
Symbol: 

<CAREIAGE COiJTROL>: :=space 

10 
I- 
M 
IH 



<IDENTIFIER> (<CABBIAGE 
GROUP>^) $ 

Definition: 

single space and print line, 
double space and print line, 
triple space and print line, 
page eject and print line. 
Same as 1 and cancel header. 
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<DESCfiIPO:OR GEOUP>: : =<DESCRIPTOR> 

|m( <CESCEIPTOR> ) 

Symbol: Definition: 

<DESPBIPTOR>; i=Iw, d Eixed-point binary to fixed-point 

decimal character string- 
IFw-d Floating-point binary tc fixed-point 

decimal character string. 
jEw.d Floating-point binary tc floating 

point decimal character string, 
jOw.d Fixed-point binary to fixed-point 

octal character string. 

|Kw-d Binary digits to hexadecimal 

character string, 

I ”STEING"Integer coded characters to 
character symbol strings, 

|Aw First w symbols of an alphanumeric 

data unit are transferred as charac- 
ters, 

|Lw Last w symbols of an alphanumeric 

data unit are transferred as charac- 
ters, 

|wX Skip w characters of an input record 

or space w characters in an output 
record. 

.|Tw A position designator of tab for 

buffer at character position w. 

End of record, or number of records 
to be skipped. N+1 slashes on input 
causes n records to be skipped. 

N+1 slashes on output causes n blank 
records to be produced. 

; |n<DESCRIPTOE> 

Semanti.cs: 

The format declaration specifies to the compiler the 
desired conversion of data elements between internal and 
external forms. A format identifier is referenced by INPUT, 
OUTPUT, ENCODE and DECODE statements tc describe data con- 



89 




versicD requirements. In the format descriptor, « is an 
unsigned integer representing the maximum number of characters 
of a field in the external medium. Integer w includes 
the space for signs, radix points and exponent descriptions, 
but is limited in size to the width of the output medium line. 
The unsigned integer d represents the number of characters 
that appear to the right of the radix pcint in the output 
medium, hence d nwist be less than w. The unsigned integer 
n specifies the number of repetitions of a descriptor to be 
applied to consecutive output fields on a line. The unsigned 
integer m specifes the number of repetitions of a group 
of descriptors to be applied to consecutive output fields on 
a line. A space must follow a format data type symbol such 
as I, £, and H. 

Examples: 

EOHMAI F100(» ",3S 10,E 14.7,4(1 6,F 6.2))$ 

ECBHAI E200 ("I", "STATUS; " ,A 4 ,//, "ACTICN : A 9) $ 
e. Table Declaration 
Syntax: 

<TAELI IECLABATION>; : = <TABLE HEAD>{<TAELE ELEMENT^JeND__TABLE I 
<TABLE EEAD>: :=TABLE ^<IDENT IFIER^( (<DIMENSI0N>3 ) $ 

lINDIRECT TABlEi<IDENTIFJER^( f<DIEEKSI0N>3) $ 
<DI1I5EKSICN>:;=<C0RSTANT> 

<TAfilE ELEMENT>: :=FIELD <DATA T YPE>5^<EIEID ITEE^ 

'ilTEM^AREA <IDENTIE IER>$ 
jSUB^TABLE <IDENTIFIER> (t<DIWENSI0N>3 ) $ 
<EIELD IIEM>: :=<ITEM> 

I <ID£NTIEIER>= (t<PBESET>J) 

1 <IDENTIFIER>=m ({<PRESET>|) 

<PRESEI>: ;=<CONSIANT> 

Semantics: 

The Table declaration creates a multi-word data struc- 
ture whose basic element is the Item. All Items in a Table 
contain the same number of words and Fields. An Item-area 
is a working area with a dimension of one, and the same Field 
characteristics of the parent Table. A Sub-table is a subset 
of contiguous Items in a Table, and thus is not a separate 
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data structure. The unsigned integer m indicates that id 
consecutive Fields are to be preset to the same value. 

There is no imposed limit of the number of Table 
declaration blocks. The maximum number of Tables allowed in 
a Table declaration block is twenty (20) . The maximuiD number 
of dimensions allowed in a Table is 128. The greatest value 
a single dimension can have is 65,536. The maximum number 
of Fields allowed in a Table Item is forty (40) . There is 
no imposed limit on the number of Item-areas and Sub-tables 
that can be declared within a Table block. 

-To reference an Item within a Table, the Table name 
followed by the subscript list must be specified. To ref- 
erence a Field within a Table Item, the Field name follow- 
ed by the Taole name and subscript list must be specified. 

To reference a Field or Item in a Sub-table is the same as 
for Tables. The dimensions must be within the defined 
subtable boundaries or an error will occur- Tc reference an 
Item-area, the Item-area name in parentheses must be 
specified. To reference a Field within an Item-area the 
Field name followed by the Item-area name in parentheses 
must be specified. 

Example: 

TABLE II, T2,T3 (10,20,5) $ 

FIELD INTEGER (16) TF1 = 1000 (-1)$ 

FIELD BOOLEAN TI2$ 

FIELD STATUS ('DOWN*, 'READY*, 'AIRBORNE*) AIRCRAFTS 
SUBTABLE ST1 (500 , 1 , 1 , 1) $ ' 

ITEM-AREA ITM1$ 

END_TABLE$ 

4. Control Structures 
a* VARY Statement 
Syntax: 

<VARY SIATEMENT>: : =VARY <REAL VARIABLE> FROM <REAL ERIMARY> 

THRU <REAL PRIMARY> DO <STATEMENT>$ 
IVARY <REAL VARIABLE> FROM <REAL PRIMARY> 
STEP <REAL PRIMARY> THRU <EEAL PRIMARY> 
DO <STATEMENT>$ 
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Semantics: 

The VARY statement allows multiple loop indicies on 
the same level and multiple nesting of loops, with the upper 
limit on the number of indicies a function of target 
machine characteristics. Indicies must be declared in data 
declarations and retain their last value when a VARY loop 
is exited. The initial, step and test values are evaluated 
only once when the loop is entered but the loop index variable 
may be changed during execution. 

The statement or statement block within a VARY loop 
must be executed once and the index may either be incremented 
or decremented until it rea<phes the test value. fchen all 
indicies gn the same level have reached their test values 
the loop will be exited. A partial pass may be made through 
a loop by a RESUME statement. This is accomplished by a 
transfer of control to the increment and test step at the 
end of the loop. 

The initial, step, and test value data elements must 
appear in the order listed, but the step value may he omitted 
in which case an implied increment of one is assumed. The 
Real data type for index variables and loop control values 
is always integer, therefore, fixed-point or f Icating-pcint 
values are not allowed. 

Example: 

VARY A FROM B STEP -1 THRU C DC 

BEGIN 

SETiD TO E+1 $ 

VARY D FROM E THRU H,E FROM L THRU 2C DO 
BEGIN 

SET:G TO D-10 $ 

SET:M TO E+9 $ 

END$ 

END$ 
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b. CASE Statement 
Syntax: 

<CASE STATE£1ENT>: : = CASE:<EEAL DATA UNII> OF <SIATEM£NT>$ 

ELSE <STATEEENT>$ 

|CASE:<EEAL DATA UNIT> OF [ J^<EEAI CONSTANT>:^ 
<STATEMENT>$'^ ELSE <STAIEf!l£NI>$ 
|CASE:<STAI13S DATA UNIT> OF iJksiATDS 
CONST AKT>:}<STATEMENT>$'| ELSE 
<STATEMENT>$ 

Semantics: 

The CASE statement allows selection of a statement 
within a list of statements for processing depending upon 
the value of a data unit. This can be accomplished in twc 
ways. The index case allows declaration of a list of n 
statements with an implied numbering cf 0 to n-1. If the 
value of the data unit is from 0 to n-1 then the appropriate 
statement is executed, or the ELSE sase statement is executed. 
The label case method requires that each label te checked for 
a match with the data unit. If a match is found then the 
appropriate statement is executed, or the ELSE case statement 
is executed. 

Example: 

(1) . Index Case 

CASE:D OF 
CALL PROCn 
CALL PR0C2$ 

ELSE CALL PE0C3$ 

(2) • Label Case 

CASE:A OF 

2:3: SET: E TO C$ 

5:7:IF A=E TEEN GOTO D$ 

ELSE SET CASE1 TO FALSE$ 

c. While Statement 
Syntax : 

<WHILE SIATEt1£NI>: :=WHI1E <£CCLEAN EXERESSION> EC <STATEMENT>S 
Semantics: 

The WHILE statement allows a statement cr statement 
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tlock tc be executed in a loop until the value of the Boolean 
exP^^ession is FALSE. The Boolean expression is evaluated 
each time the loop is executed and if it is initially FALSE 
the locp will not be executed. The Boolean expression must 
be made FALSE during loop execution or the loop will execute 
infinitely. 

Example: 

WHILE A<5 DO 
BEGIN 

SET:B TO C+1$ • 

SET:A TO A+1S 

END$ 

d. IF Statement 
Syntax : 

<11 STATEMENT>:^ =IF <BOCIEAN EXPRESSICN> THEN <STATEMENT>$ 

|IF CBGCLEAN EXPRESSION> THEN <SIMPLE 
SIATEMENT>$ ELSE <STATEEERT>$ 

|[lF <BOOLEAN EXPRESSION> TxHEnJ <STATEx*1ENT >$ 

4^;f <boolean expressicn> then| <simple 

STATEMENT>$ £eLSE <SIMPIE STATEMENT>^ 
ELSE <STAT£]!1ENT>$ 

Semantics: 

The IF statement allows nesting of IF THEN ELSE 
statements with no imposed limit. Only simple (not CASE, 
VARY, WHILE, RESEFtVE, or IF) statements are allowed within 
the nesting structure. Basic and simple statements, however, 
may be used fcr the last statement after the last ELSE. 

The ELSE statement is always matched with the nearest IF 
THEN phiase, thus eliminating the dangling ELSE problem. 
Examples: 

IF A=E THEN GOTO LABEL1$ 

IF A=B THEN IF C=D THEN SET:A TC D$ 

IF A=B THEN IF C=D THEN SET:A TC D ELSE SEI:B TO C$ 

e. RESERVE and WAIT Statements 
Syntax: 

<RESERVE STATEMENT>: : =RESER Ve( ^RESOU ECE>^] <S I H E l £ 

STATEMENT>$ 
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<RESOUfiCE>: : =<PfiOCEDUBE SIATSMEHT> 

I :<EATA UNIT> 

|<DAiA STRUCTUJ8E> 

<DAIA SIBUCTURE^: : = <I AELE IDENTIEIER> ( [<REAL PEIMARY>2) 

|<FILE NAME>(<REAL PEIEARY>) 

■<TAEIE IEENTIEIEB>: :=<TAELE NAME> 

|<SUE-TABLE NAME> 

|<ITEE-AREA NAME> 

<WAii siatemeet>:;=kait(^<procedure NAME>^)$ 

Semantics: 

The RESERVE statement may he used to iiiicrm the 
monitor system ox an impending entry into a critical section. 
The procedure statements, data units cr data structures 
thus identified will not then be change-accessa tie by any 
other processes running in the same multi-programming or 
multi-processing environment. Upon leaving the RESERVE 
block, the resources will be freed for change-access by 
other processes. The WAIT statement has been added to allow 
synchronization of processes, that is, to specify that the 
ccntrclling procedure is to suspend execution until one or 
more procedures have completed their execution. 
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Example: 
COBEGIN 
-1 BEGIN 



SI 



Sz. 



S3 



RESERVE (R1) 

BEGIN 

ENDS 

ENDS 

BEGIN 

RESERVE (R1) 

BEGIN 

ENDS 

ENDS 

BEGIN 

ENDS 

COBEGIN 

BEGIN 

WAIT (S2,S3,S6) S 






^ 5 ^ 



SO 





S€" 



ENDS 

BEGIN 

WAIT (SI) S 

ENDS 

BEGIN 

WAIT (SI) S 



ENDS 
CCENDS 
COENDS 
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f. SET Statement 
Syntax: 

<SEI STATEMENT>:: = SET: <LATh UNIT> TO <EXPEESSIOli>$ 

<DAIA UNIT>: : =<REAL DATA UNIT> 

J<BITS DATA 0NIT> 

|<xOOLEAN DATA UNIT> 

KCHASACTEE DATA UNIT> 

|<STATUS DATA UNIT> 

1<TABLE IDENTIFIER> 

i<.lALLL 1DLRTH1LK>( <KEAL tEIHARi> ) 

<REAI DATA DN JT: : : ^ <F E AI VAFJAELE> 

i<BEAL FTELD NAME> <TA£LE IDENIIFIES> 

( <REAL PRIMARY> ) 

<REAL VARIABLE>; : =<INTEGER VARIABLES 

1<FIXED-P0IRT VARIABLE> 

^ <FLOATIRG-POINT VARIABLE> 

XBIIS DATA UNIT>: : =<3ITS VARIABLE> 

|<BITS FIELD NAME> <TA£LE IDENIIFIER> 

( <REAL PRIMARY> ) 

<BOOLBAN DATA UNIT>: : =<BCOLEA N VARIABLE> 

|<ECOLEAN FIELD RAEE> <TAEIE IEENTIEIER> 
( <REAL PRIMARY> ) 

<STAIUS DATA UNIT>: : =<STATUS VARIABLE> 

|<STATUS FIELD NAME> <TABLE ILENTIFI£R> 

( <EEAL PRIMARY> ) 

<CHAEAC1£R DATA UNIT> : : -<CHARACTER VARIABLE> 

1<CHARACTER FIELD NAI1E> <TABLE 

IDENTIFIER>( <REAL PBIMARY> ) 
<EXPRESSICN>: :=<BEAL EXPRESSION> 

|<BITS EXPRESSION> 

|<CHAEACTEE EXPRESSICN> 
i<STATUS EXPRESSI0NP> 

KBOOLEAN EXPRESSION> 

|<TABLE IDENTIFIER> 

Semantics; 

The SET statement allows the assignment cf evaluated 
expressions to a compatible data unit or Table structure. 
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All assignments must be type compatible and receptacle data 
unit lengths will determine whether the results are truncated 
at the least significant digits or right justified and 
filled in with zeroes. For Character assignments, the 
character symbols on the right of an expression will be trun- 
cated if the receptacle is smaller than the expression, 
otherwise, the result will be left justified and the remain- 
ing positions unchanged. 

The 5'tatus assignment will transfer to the Status 
variable the integer value cf the Status constant on the 
right. 

Bits expression assignments follow these rules; 

(1) . If the length of the expression is greater 
than the data unit, then the result is right- j ustified in the 
data unit and truncated at the excess bits on the left. 

(2) . If the length of the expression is less 
than the data unit, then the result is right justified in 
the data unit and the unused bits are set to zero. 

A multi-word Table-to-Table, Item-to-Item or 
single Item- to-Iable assignment results in the trans- 
fer of all values from one element to another. lable-to- 
Table a-ssignment implies that every word of one Table will 
be transferred to every corresponding word of another Table. 
Dimension compatibility is the responsibility of the pro- 
grammer. The total number of words in each, however, must 
be the same. Item-to-Item assignments will also result in 
the transfer of all words in one Item to another Item. 
Assignment length compatibility is the responsibility of 
the programmer and excess words will be truncated. Item-to- 
Table assign-ment implies that every Table Item is replaced 
by the Item value. 

Examples: 

S£T:A TO E$ 

SET:A,,B,C TO D$ 

SETiWEATHER TO * HOT » $ 

SET WEATHER, T-EMFERATURE TO »HOT*$ 

SET: A TO (B+C) 
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SET: ^ A) - .5 TO C$ 

SET:A TO (C) • . 2$ 

SEI:A TO C EEM D$ 

SET:A TO E AND! C$ 

SET: A TO FALSE$ 

S£T:C TO "CBAEACTEE 3TEING 11”$ 

SET: A (1,1) to B (1,2) $ 

SET:IABLE1 TO TABIE2$ 

SET:TAB1E2 TO ITEE1$ 

I 

g. SftAP Statement 
Syntax: 

<SWAP saATEBENT>: : =SWAP: <DATA UNIT> FCE:<DATA UKII>$ 

Semantics: 

The SWAP statement exchanges the values cf two data 
units. Eeplacement rules are the same as those for the 
SET Statement. 

Example: 

SWAP:C(1,2) FOB:D (2,1)$ 

h. SEARCH Statement 
Syntax: 

<SEARCH SJATE£lENi>: :=SEAECH:<DAIA STEUCIUEE> FCF:<EATA UNIT>$ 
Semantics: 

The SEARCH statement provides the capability to search 
a Table File fox an entry with same value as a data unit. 

If found, the index variables in the data structure's dimen- 
sion list will be set at rur-time to point to the value's 
location, otherwise they will be set tc minus one. Both 
structures will be searched sequentially starting with the 
first dimension and varying it and adjacent dimensicns up- 
ward from right to left to their maximum limit until the 
value is found cr net found. 

Example : 

SEARCH: TABLEl (D1,D2) F0R:B(1, 1,1)$ 

i. INPUT Statement 
Syntax: 
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<INIU1 STATEriENI>: : = INPUT <FILE NAME> INIO;<DAIA CNIT>$ 

lINPUT <FILE NAME> <EORMAT NAME> 

IKTO:<DATA UNIT>$ 

<PILE N£ME>: :=EEAD 

4 

|OCM 

|<USEE FILE NAME> 

Semantics: 

The INPUT statement causes a monitor rci^tine to input 
data elements from a specified device or user declared file 
into a data unit or units. When the data unit is a whole 
Table the input fills the Table seguen tially, word by word. 

If a format name is not referenced, the input character 
string is converted to the type and length of the receptacle. 
The user file name feature was not implemented in this 
version of CMS-2ES, but will allow data to be moved to and 
from internal and external devices. 

Examples: 

INPUT BEAD INTO:A,B,C$ 

INPUT USER1 F0BE1 INT0:TABLE1$ 
j- OUTPUT Statement 
Syntax: 

<CUTPUT SIAIEI^ENT>: :=OUIPUI <FILE NAME> <FOfiMAT NAME>$ 

(OUTPUT <FILE NAMf> CUTOF:<DATA UNIT>$ 

(OUTPUT <FILE NAME> <FORUAT KA«E> OUTOF; 

<DATA UNIT>$ 

<FII£. ltAilE>: :=PEINT 
. (PNCH 
(OCM 

(<US£R FILE NAME> 

Semantics: 

The OUTPUT statement causes a monitor routine to out- 
put data or a character string to a specified device or user 

declared file from a data unit or units. When the data unit 

is a whole Table the OUTPUT statement empties the Table Items 
sequentially , word by word. If a format name is not refer- 
enced, the output character string is truncated at 22 positions 
per data unit. 
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Examples: 

CUTJFUT EEINT "THIS IS AN OUTPUT STHING"$ 

OUTPUT OCM OUTOE:A,B,C$ 

OUTPUT USEE2 FOEM2 OUIOF: IABLE4$ 

k. ENCODE and DECODE Statements 
Syntax; 

<ENCCDE STATEMENT>: :=ENCCDE:<CHABACTER DATA 0NIT> <FORMAT 

NAME> OUTOF:<DATA UNIT>$ 

<EECODE STATEMENI>: ;=DECCDE: <CHARACTER DATA UNIT> <EORMAT 

NAME> INTO:<EATA UNIT>$ 

Semantics; 

The ENCODE statement specifies that the scuxrce data 
unit (s) are to be converted to character strings and packed 
sequentially into the receptacle according to a specified 
format. The DECODE statement is the reverse of the ENCODE 
statement. 

Examples : 

ENCODE; CHARACl CUTOF;A, B,C$ 

DECODE:CHARACl INTO:A,B,C$ 

l. PACK and UNPCK Statements 
Syntax: 

<PACK SIATEM£NT>: :=PACK ;<IATA UNIT> OUTOF;<DAIA UNII>$ 

<UNPCK SIATEMENT>: :=UNPCK;<DATA UNIT> INTO:<DAiA UNIT>$ 
Semantics; 

The PACK statement transfers a bit string from a 
source list of data units into a receptacle data unit. They 
are stored consecutively from lef t-to-right and without 
spacing. The receptacle and source data units may be var- 
iable to Field, Field to variable, variable to variable. 
Field tc Field, Table to Table, Table tc variable, 
variable to Table, Field to Table, Table to Field, 

Item to Item, Table to Item, Item to Table, Item to Field 
and Field to Item. Assignment length compatibility is the 
responsibility of the programmer and excess words will 
be truncated. 
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Examples: 

PACKiTAELEI OUTOE:T AELE2$ 

PACKiA OUTOF:B,C,D$ 
m. Procedure Statement 
Syntax: 

<PECCE£ljEE STATEMENT> : : = CALI <PROCEEUBE NAM£> 

<INPUT PAEAE£TERS> 

<CUTPUT PAfiAMETEES> 

<LABEL PAEAMETERS>) $ 

JCALL <PEOCEDURE NAME> 

<INIUT PARAMETERS>: := ( , 

I <EXPRESSION> ) 

<OUIPUI PARAW£TERS>4 :=1 I / 

I i <DATA UNIT> 

<LAB£L PAEAMEa;ERS>: :-| I <1ABE1 NAi5E> 

Semantics ; 

The procedure CALL statement transfers control to 
a nailed procedure and maps any actual parameters to the 
corresponding formal parameters. 

All procedure input and output parameters must have 
been previously declared. Parameters are normall]^ mapped by 
passing values, thus resulting in a call by value. If the 
same data element is used for output in both actual and 
formal parameters, then the effect is call by result. If 
an actual parameter is omitted, or if the same data element 
is specified as both the actual and fcrual parameter then 
a call by address occurs. If call by address is desired 
and the data elements are not the same, then the QCRAD 
operator must be used to pass the address of variables or 
subscripted variables. For Tables, the indirect declaration 
allows the Table address to be passed to the called procedure. 
By mixing any of the above conventions, calls by value- 
result cr address-result may occur. 

Examples: 

(1). Value 

TABLE T1,T2$ 

CALL A (T21 )$ 
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FfiOC£EURE A(T1| )$ 

(2) , RESULT 

TAELE T1,T2$ 

CALL A ( I T2) $ 

EfiOCEDURE A ( (11)$ 

(3) • Value-result 

VRBL A,B,C$ 

CALL L(A| A) $ 

PROCEDURE D <B I B) $ 

(4) - Address (TaLles) 

TABLE T2,T3^ 

INDIRECT TABLE T1$ 

CALL A (T2 iT3) $ 

PROCEDURE A(T2|I3)$ 

CALL A(I2l )$ 

CALL A(T3| \$ 

PROCEDURE A(T1j )$ 

(5) . Address-r esult 

TABLE T1,T2$ 

CALL A <T1 1 T2) $ 

PROCEDURE A(T11T1)$ 

(6) . Address (variables) 

VREL A,B,C$ 

CALL D (CORAE(A) \ ) $ 

CALL D (CORAD (E) | ) $ 

PROCEDURE D(C| )$ 
n. GOTO Statement 
Syntax: 

<GCIC SIAI£flENI>::=GOTO <LABEL NAEE>$ 

Semantics: 

The GOTO statement transfers control to a labeled 
statement or statement block. 

Examples : 

GOTO LABEL1$ 

If A=B THEN GOTO LAB£L2$ 
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. 5ETURNT0 Statement 
Syntax: 

<BEIURNIO STAIEMENT>: : =JREIL’RNI0 <IABEl KAWE>$ 

Semantics: 

The RETUHNTO statement transfers’ control tack to 
one cf the abnormal exit label parameters in a procedure 
call. 

Example: 

REIURRIO EXITL3L1$ 

o. RESUME Statement 
Syntax : 

<RESUME STATEMERT>: :=RESUME <LABEL NAME>$ 

Semantics: 

The RESUME statement specifies a transfer to the 
increment and test step within a VARY block. 

Example: 

IE A=E THEN RESUME VARYU 

p, RETURN Statement 
Syntax : 

<EETURN STATEMENT>: :=RETURN 

I RETURN :<DATA UNIT> 

Semantics: 

The RETURN statement transfers control from within 
a sub-routine to the point of call. The RETURN statement 
may be emitted if it is the last statement in a procedure. 

To return from a Function^ the RETURN data unit statement 
must be used. 

Example: 

RETURN$ 

IE A=E THEN RETURNS 
IF A<B THEN RETURN:A$ 
r. STOP Statement , 

Syntax: 

<STOP STATEMENT>: : =STOP 
Semantics : 

The STOP statement temporarily suspends program exe- 
cution until an operator manually restarts the computer. 
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Example: 

IF INTEBBUPT(I) THEN STOPS 
5- Expressions 

a. Beal Expressions 
Syntax: 

<BEAI EXPBESSION>: : = <fiEAL PEItlABY> 

|<BEAL EXPBESSION> <BEAL OP£FAICE> 



<EEAL PRIMARY> 

Symbol: Definition: Priority: 

<BEAI OPEBATOE>: ;=+ addition 4 

j- subtraction 4 

i* multiplica ticn 3 

1/ ^ ivision 3 

|HEM remainder 3 

I** exponentiation 2 

I ABS absolute value 1 

J~ unary minus 1 

<BEAL EEIflABY>: :=<EEAL DATA UNIT> 

|<REAL CONST ANT> 

I (<EEAL EXPBESS10N>) 

i<REAL FUNCTION NAME> <INPUT PARANETEBS>) 



I (<B£AL EXPBESSION>) , .<EEAL COKSTilNT> 
INUMBER (<£ITS PRIMABY>) 

I CHARCODE (<CHAEACTER PBIHABY>) 

|COUNT(<EATA UNIT>) 
jCORAD(<EATA UNIT>) 

Semantics: 

The Real expression allows mixed mode arithmetic 
with integer, fixed-point and floating-point operands. 
Evaluation is from lef t- to-right in the order of the 
priorities listed above. The REM operator provides the 
remainder after integer, fixed-point or floating- j; cint di- 
vision of two operands. 

Examples : 

SET:A TO B BEM NUMBER (C)$ 

SET:D TO -B«*C**E*CORAD (F)$ 
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b. Bits Expressions 
Syntax; 

<BIIS EXfB&3SI0U>: :=<BITS PEIMABY> 

|<BIIS EXPEESSION> <ICGICAL CPI£ATOE> 
<BITS PfiIKARY> 

KBITS EXPEESSION> <SHIPT OPEE£TCB> 
<BEAL PBIMARY> 

Symbol: Definition; Priority: 

<L0GICA1 GPEBAIOB>; :=NOII logical not T 

lANEL logical and ' 3 

I ORL logical or 3 

<SHIET CFERATCR>: :=SHLL shift left logical 2 

ISHRL shift right logical 2 

ICIRSHLL circular SHLL 2 

ICIRSHRL circular SHRL 2 

<BITS P£IMARY>: -; = <BITS CONSTANT> 

KBITS DATA UNIT> 

I (<BIIS EXPR£SSION>) 

KBITS FUNCTION NAME> <INPUT PAB1EETEES>) 
1BITSTRING<INPUT PARAM£TERS>) 

Semantix:s: 

The Bits expressions allow logical operations on 
binary operands of equal cr unequal length. The shift 
operators allow shirting of a Bits operand an integral 
amount either end-off or within the operand. All end-off 
shifts result in vacated bit positions being assigned the 
value cf zero (0). The BITSTRING function has parameters; 
(real primary^ real primary , data unit). The first param- 
eter is the starting bit position in the third parameter. 
The second parameter is the number of bits to be extracted 
from the third parameter. The result is a substring of 
bits from the data unit. 

Examples : 

SET;A TO B ANDL C SHIL 3$ 

S£T:D TO BITST RING (4, 10^ E) $ 
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c. Character Expressions 
Syntax: 

<CHABAC5:ER EXPEESSIOh>: : = <CHAEACTER peimaey> 

|<CHAEACTEE EXPEESSION> CAT 
<CHAEACTEE PEIMABY> 

<CHAEACT£E PEIM ASY> : := <CH AE ACTEE CONSIANT> 

|<CHARACIER DATA UNIT> 

I (<CHAEACTEE EXPEESSION>) 

|<CHAEACTEE FUNCTION NAMEXINPUT 
PAEAMETEES>) 

1 CODECHAE (<REAL PEIFiAEY>) 

I SUBCHAE<INPUT PAR AMETERS >) 

Semantics: 

The Character expression allows concatenation of 
successive character strings. The SUBCHAR function has 
paramters: (real primary, real primary, character primary). 

The first parameter is the starting character pcsition in 
the third parameter. The seccnd parameter is the number of 
characters to be extracted from the third patameter. The 
result is a substring of character symbols from the character 
primary, 

€, Boolean Expression 
Syntax: 

<E0C1EAN £XPRESSION>: :=<£COLEAN PRIMARY> 

|<EOCLEAN EXPRESSION> <E001EAN 

OPERATOR> <ECOLEAN PEIMARY> 
Symbol: Definition: Priority: 

<BOCIEAN OPER ATOE> : :=NOT conpl ementation 2 

(AND conjunction 3 

l-OE disjunction 3 

<BOOLEAN PRIMA-«Y>: :=<BOOLEAN CONSTANT> 

|<BOOLEAN DATA UNIT> 

I (<EOOLEAN EXPRESSION>) 

|<B001EAN FUNCTION NAHEXINPUT 
PAEAMETERS>) 

|<RELATICNAL EXPRESSION> 
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<EEIATICNAL EXPBESSION> : :=<EE AL PEIMARY> <SELAIICNAL OPERATOE> 

<REAL PBIEARY> 

|<EIIS PRIMARY> <RELATICKA1 

OPERATOR> <BITS PRIMARY> 
|<CHARACT£R PRIMARY> <5EIATI0NAL 

OPERATOR> <CHARACTER PRIAMRY> 
j<SlATUS EXPE£SSION> <REIATIONAL 

OPERATOR> <STATUS EXPRESSION> 



Symbol: Defirition; Priority: 
<REIATICNAL OP£RATOR>: :=< less than 1 

|> greater than 1 
I = equal 1 
l-»= not equal 1 



I <= less than or equal 1 

1>= greater than or equal 1 

Semantics: 

The Boolean expressions allow logical ccmparison cf 
two cr mere operands for TRUE of FALSE conditions using 
Boolean operators. The relational expressions allow 
comparisen of Real, Bits, Character or Status expressions. 
Example : 

IF A=B AND C=^D THEN SET:A TO D$ 
d. Status Expressions 
Syntax: 

<STATUS EXPEESSION>::=<STATUS CONSTANT> 

|<STATUS DATA UNIT> 

1<STATCS FUNCTION NAMEXINEUT PARAMETERS>) 

Semantics: 

The Status expression allows the use of Status con- 
stants, data units and functions in dynamic statements. 

Example: 

SET;WEATHER TO •HOT*$ 
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APPENDIX C 



SAMPLE CMS-2RS PRCGRAMS 



SYSTEM ALPHA $ % THIS IS A DO-NOTHING PROGRAM TO SHOU SA^PLES OF DATA 

OECLARATICNS AND DY^AMC ST/^TEMENTS % 

SYS^DD D1 $ 

VT5bL STATUSCHERES'THEPE*, •ANYWHERE*) POS=*HERE*$ 

TAG F=5f G=21.3 $ 

VRBL INTEGER! 16) A=l, B, C=4 $ 

VRBL FIXEC(16,8) FX=44.8 $ 

VRbL CHAR<4) CH = *'HELP" $ 

VRBL BITS(22) 6T=^FF $ 

FORMAT FIOOC* 'SSF 4.2, 3(4E 6)) I 
FORMAT El(«l», 31 4,// , **VEA**) $ 

TABLE X,Y(2,3,61 $ 

FIELD 1NTEGER(32) Fl=12(l,2) $ 

FIELD STATUS! 'ALERT* , 'AIPBCRN* , 

FIELD STATUS ! *AL ERT *, *A IRBORN *, 'DOWN » ) AIRCRAFT $ 

FIELD FIXED!6,2) F2=!1.2, 2.3, 3,4) $ 

ITEM AREA lAl, IA2 $ 

SUBTABLE Sl!4, 2, 2, 2)1 
ENO^TABLE $ 

ENO^DD $ 



SYS^DD SI $ 

Vl^BL INTEGER!32) A, C=l, D = 40 $ 

VRBL FLGAT!32) INI, IN2 , IN3, IK4^ 

VRBL FIXED!32,16) OUTl , CUT2 $ 

VRBL CHAR!10) CHAR1$ 

FORMAT F200 !*' ", I 4)$ 

ENO.DD $ 

EXTREF S2 $ 

SYS.PROC fi $ 

LCC DD $ 

VRBL INTEGERU6) Al, A2 $ 

END_DD $ 

PROCEDURE B!IM,IN2|0UTi,CUT2| |Ll,L2) $ 

VARY A FROM C STEP -1 THRU 0 DO 

BEGIN 
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SET ; OLTl TO A $ 

VARY Al, FROM 1 THRU 20, A2 FROM 2 THRU 10 DO 
BEGIN 

SET : OUT2 TO Al $ 

IF A1=A2 THEN RETURNTQ LI $ 

END $ 

END $ % END OF PROCEDURE “B*' % 



PROCEDURE P2 $ 

BEGIN 

•IF A=fC THEN IF IN1 = IN2 THEN WHILE /fl<C DO RESERVE (OCM ( 20 J A ,B ) $ 

IF A=C THEN IF IN1=IN2 THEN UNPCK:IN2 INTO: INl,A$ELSE RETURN: C$ 
ELSE CASE: C OF 

3: 4: ENCCD'E: CHAPl FlOO GUTCF: A,Ci 
5:6: DECODE: CHARI FiOO IMC: A,C$ 

ELSE CUTPUT PRINT FIQO OUTOF: A,C$ 

H: INPUT READ FIOO INTO: A,C$ 

CALL B(A,C|OUTi, I [L 1 ) $ 

END $ % ENC OF PROCEDURE P2 % 



FUNCTION FIXEC(32,16) F ACT { IN3, I N4 J $ 
BEGIN 

SWAP : IN3 FOR : IN4 $ 

RETURN : IN4 $ 

END $ % END OF FACT % 

ENC $ % END CF SYS.PROC E % 

END $ % END OF SYSTEM ALPHA % 



SYSTEM BISEARCH $ ? A EINARY SEARCH IS PERFORMED FOR AN IDENTIFIER 

IN A TABLE VIA AN ALPHABETICALLY CRCERED DIRECTORY 
CONTAINING FOR EACH ENTRY THE LENGTH (NO. OF 
CHARACTERS) OF THE IDENTIFIER, THE ADDRESS OF THE 
ACTUAL IDENTIFIER, AND A CODE NUMBER % 

EXTREF IDTABLE $ % IDENTIFIER TABLE IS A SYS.DD IN THE LIBRARY % 

S\SDD D1 $ 

TZBLE OIRECTRY(IOOO) $ 

FIELD INTEGER(S) LNGTH $ 

FIELD INTEGER(16) ADCRS $ 
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FIELD INTEGER(16) COCE $ 

END TABLE $ 

VRBI CHAR(20) lOENTBUF $ ^IDENTIFIER BUFFER , 
VRBL CHAR(20) IDENTBUF $ % IDENTIFIER BUFFER % 
VRBL INTEGER(8) IDLNGTH $ 

VRBL INTEGER(16) INDEX, LCW, HIGF i 
VRBL BOOLEAN FOUND $ 

END.DD $ 



SYS,PROC MAIN $ 

LtC^DD $ 

FDRMAT F1("1»‘, X 10, I 5) $ 

FORMAT F2(» » , *• I C ENT I F lER NOT FCLND") $ 

END.OD $ 

PROCEDURE MAIN $ 

BEGIN 

CALL READID $ 

CAl^L SRCH( IDLNGTH, LOW, HIGHIFOLNC , INDEX) $ 

IF FOUND THEN OUTPUT PRINT FKCODE D IRECTRY( INDEX ) ) 
ELSE CLTFUT PRINT FI $ 

END $ 

END $ % END CF MAIN % 



SYS PROC READID $ 

L^C^DO $ 

Vf^BL INTEGER(8) PTR = C $ 

VRBL CHAR(l) CHTR = •» •» $ 

END^DO $ 

PROCEDURE READID $ 

BEGIN 

SET: IDENTBUF TO ” »• $ 

INPUT READ IDENTBUF i 
SET: IDLNGTH TO 0 $ 

SET: CHTR TO SUBCHAR ( PTR , I , I DENTEUF ) $ 

WHILE CHTR-^ = »’ " CO 

BEGIN 

SET: PTR TO PTR + 1 $ 

SET: IDLNGTH TO IDLNGTH +15 
SET: CHTR TO SUBCHAP ( PTR ,l , I CENTBUF ) 5 
END $ 

END $ 

END $ % END CF READID % 
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SYS.PROC SRCH $ 

LOC.DD $ 

VREL INT£GER(16) L, LG, HI, I $ 

VRBL BCCLEAN F $ 

VRBL CHAR(20) lOB $ 

VREL INTEGER(B) R $ 

END^OD $ 

PROCEDURE SRCH(L,LO,HI I F, I) $ 

BEGIN 

LI: SET: I TO (LQ+HD/2 $ 

IF L=LNGTH OIRECTRY(I) THEN 
BEGIN 

SET: IDB TO IDENTRY I DTABLE ( ACCRS 
CALL CCMPAREdDENTEUF, IDBI R) $ 

END $ 

IF R = 0 THEN. SET: F TO TRUE $ 

ELSE IF R=1 THEN SET: HI TO I ^ 

ELSE SET: LG TO I $ 

IF NOT F THEN GOTO L \ i 
END $ % END CF SRCH % 

PROCEDURE COMPARE! IDENTBUF, IDBjR) 
BEGIN 

IF IDENTBUF=IDB THEN SET: R TC 0 $ 
ELSE IF IOENT0UF < IDB THEN SET: R 
ELSE SET: R TO 2 $ 

END $ % END CF COMPARE % 

END $ % END CF SYS^PROC SRCH % 



DIRECTRYdn $ 



TO 1 $ 



END $ % END OF BISEARCH % 




APPENDIX D 



DESCRIPTOBS* PROTOCOL 

Due tc the variety of conditions that need be described, 
it beccices necessary to recognize several descriptor 
formats. These formats are detailed here to facilitate 
future fccrh in completing this compiler. Unless otherwise 
specified, the headex byte in every descriptor gives the 
number cf bytes that follow. Fields are described 
sequentially as they appear in the descriptor:, 

Parameterless Pro cedur e 

A descriptor for a parameter less procedure consist of 
the header byte followed by a four~byte fi^ld to store the 
entry pcint address pf the procedure. 

2 • Proc edure Kith Para meters 

A descriptor for a procedure with parameters consist of 
the header byte, a four-byte field to store the entry point 
address cf the procedure, one byte to indicate the type and 
number cf farameters, and a number of two-byte fields, one 
for each parameter, to store pointers to the parameters* 
entries in the identifier directory. 

The twc high order bits of the type-number byte indicate 
the type of parameters that follow according tc the 
following cede: 00 for input parameters, 01 for output 
parameters, and 10 for label parameters. The six lew order 
bits remaining indicate number of parameters (64 maximum) . 

The type-number byte together with the pointer fields 
fern a greup. Up to three such groups can appear in the 
descriptor, one for each of the three types of parameters, 
INFCT, CUIPUI, and lAEEL, 



113 




3- function Name 

A function name descriptor consist of the header hyte 
and a fcur-hyte fieid to store the entry point address of 
the procedure. The remainder of the descriptor varies in 
format among the five possible types of functions as 
follows: 

a. Numeric Function 

The entry point fieid is followed by a twc~tyte 
field for data type description. The two high order bits of 
the first byte indicate the type as follows: 

OC for integer 
01 for fixed 
10 for float- 

Ihe next 14 bits of the field are used to store 
value of the data size parameter in data type declarations. 
In the case of type FIXED where two such parameters are 
used, the seven high order tits are used for tl>e first 
parameter and the seven low order bits for the second. 

The data type field is followed by a one-byte field 
to indicate the number of formal parameters, and a number of 
two-byte fields, one per formal parameter, to store pointers 
tQ the parameters* entries in the identifier directory, 

b. Bits Function 

Bits function descriptors are the same as numeric 
function descriptors except that all 16 bits of the data 
type field are used to store the value of the data size 
parameter. 

C. Character Function 

Character function descriptors are the same as bits 
functioE descriptors. 

d. Status Function 

The entry point field is followed by a cne-byte 
field to indicate the present value of the status function, 
i.e., the number of the status constant assigned. This 
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field is followed by a number of two-byte fields, ere per 
status constant, to store pointers to status constants in 
the identifier directory. A one-byte field to indicate the 
number of forical parameters and a number of two-byte fields 
for pointers to such parameters follow. At declaration 
time, the ccirpiler associates an integer with each status 
constant in ascending order beginning with 1. This number 
is stored in the descriptor pointer field Of the status 
ccj3stant*s entry in the identifier directory. When a status 
variable is set to a status constant, the number assigned to 
that constant by the compiler is entered in the present 
value byte of the descriptor. 

e. Bcolean Function 

Boolean function name descriptors need no data type 
field. ether than that, the descriptors are the sane as 
those described above. 

4 . Ta gs 

lags do net need descriptors. Instead, the descriptor 
pointer field in the identifier directory has the pointer to 
the numeric value of the tag in the constant table. 

5 • Variab les 

Numeric, bits, and character variables have the same 
descriptor format. It consists of the header byte, two 
bytes for the data type field as described before, and a 
two-byte field for a pointer to the value in the constant 
table. Ibis last field will have an unpredictable value 
unless the yariable has been initiallized. 

Status variables have the following descriptor format; 
header bjte, one byte to indicate present value cf the 
status variable, i-e., the number of the status constant 
assigned, and a number of two-byte fields, one pet each 
status constant, to store pointers to status constants in 
the identifier directory (see status function above) . 



ns 




Boolean variables, like boolean functions, do not need 
descriptors. The descriptor pointer field is used to store 
the value of the var^-able; 1 for TEUE and 0 for FALSE. 

6 • Form at De claration D esc rip tor 

Format declaration descriptors consist of the header 
byte, one byte for the carriage control field, and a 
sequence of format descriptor fields. There are five 
different types of format descriptor fields. The high order 
three bits of each field are used as a key to indicate the 
type of field as follows: 

001 for numeric conversion format field 

010 for character constant field 

011 fcr slash list field 

100 for repetition group head field 

101 for repetition group tail field, 
a. Numeric Conversion Format Field 

This field is four bytes long. The first byte has 
the field key and the type conversion letter. This letter 
is represented by tijfe low order five bits in the byte 
according to the following code: 

OfOOl for I 
0C13O for F 
00101 .for E 
1C J |0 for 0 
01000 for H 
0C001 for A 
10011 for L 
0C111 for X 
00011 for T- 

The second byte has the value cf the repetition 
factor "n” in the numeric conversion group (nlw.d). It can 
have any value between 1 and 255. The third byte has the 
value of the "w” parameter, and the fourth byte that cf the 
”d** parameter. The "d" parameter can he zero. 
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b. Character Constant field 

The character constant field has three bytes^ The 
first byte has the key field. The second and third bytes 
have a pointer to the character constant in the constant 
table. 

c. Slash List field 

The slash list field has one byte. The three high 
order bits have the field key. The five lew order bits give 
the number of slashes in the list, 

d. Repetition Group Head Field 

The repetition group head field has two bytes. The 
three high erder bits have the field key. The remainder 
thirteen bits have the value of the group repetition factor 
m. 

e. Repetition Group Tail field 

The repetition group tail field has one byte with 
the field key. All the descriptor fields bracketed by the 
repetition group head and tail fields will be repeated '''m” 
times when implementing the format. 

7 . Tables 

A table descriptor consist of the header byte, one byte 
for the number of dimensions field, a number of twe-byte 
fields, one for each dimension, to store the value of the 
dimensions, and a two-byte field to store the pointer to the 
field pointer list in the constant table. The high order 
first 'bit of the number of dimensions field is used to 
indicate if the table is INDIRECT or not. This bit is set 
tc "1" for INDIRECT TAELE declarations; it is reset to ”0” 
Qtherwise, The remaining seven bits are used to store the 
number of dimensions (128 maximum) . The field pointer list 
is a pseudo-descriptor consisting of a header byte and a 
number of two-byte fields, one per each field declared in 
the table declaration block, with pointers to the field name 
entries in the identifier directory. 
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8. fields 

Numexic, bit^, and character field names have the same 
format. It consists of the header byte, two bytes for the 
data type field, and a two-byte field for the pointer to the 
value in the constant table. If the field is initiallized 
at declaration time to a list of values, the following 
additional fields are part of the descriptor: a two-byte 
field to store the number of values in the initiallization 
list, and a two-byte field to store the list repetition 
factor m. The last two bytes of every field descriptor have 
a pointer to the parent table descriptor in the constant 
table. 

Status field names have the same descriptor format as 
that described above except for the data type field. This 
field was previously described (see status function) . 

Boolean field names have the same descriptor format as 
those already descril)ed except for the absence of a data 
type field. 

Item-areas do not need descriptors. The descriptor 
pointer field in the identifier directory has a pointer to 
the parent table descriptor which, in turn, has a pointer to 
the fie^d pointer list. 

1 0 - Su bt ables 

A suitable descriptor consists of the header byte, a 
number of two-byte fields, one per dimension, to stcre their 
values, and a two-byte field for a pointer to the parent 
table descriptor. 
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' APPENDIX E 



OPERATION CODES FOR II 



Operation C od e 
ADD 
ADC 
SUE 
SBC 
MUL 
NIC 
DIV 
DVC 
REM 
ISI 
EXP 
ABS 
SCL 
CNI 
NEG 
MCD 
TST 
BIS 
EIQ 
BEC 
BNC 
.. EGQ 
BGR 
ERE 
BEI 
ERU 
NCP 
SIP 
LDV 
IDA 
STV 
STA 



Meaning 
add operand 

add constant in operand field 
subtract operand 

subtract constant in operand field 
multiply times operand 

multiply times constant in operand field 
divide by operand 

divide by constant in operand field 

remainder 

compare 

exponentiation 

absolute value 

stale 

count ones 

unary minus 

modulo 

compare 

branch on < 

branch on <= 

branch on = 

branch on -•= 

brach on >= 

branch on > 

branch on false 

branch on true 

unconditional branch 

no operation 

§top 

load value of operand 
load address of operand 
store value of operand 
store address of operand 
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^NI 


logical and 




ICB 


inclusive logical or 




xoia 


exclusive logical or 




NCI 


logical complement 




INX 


subscript computation 




XCH 


exchange operands 




CAT 


string concatenation 




JNE 


input from reader into operand 






input from reader into operand 


with format 


0 TB 


output to printer operand 




OP I 


output to printer operand with 


forma t 


DEF 


define label location 




LNE 


source line number 




ESP 


enter sysproc 




ISP 


leave sysproc 




ESE 


enter sysprocreen 




LSB 


leave sysprocreen 




EPE 


enter procedure 




LPB 


leave procedure 




EFN 


enter' function 




BEN 


leave function 




PEC 


procedure call 




FNC 


functj.on call 




INC 


increment 




EVL 


enter vary loop 




LVl 


leave vary loop 




EWL 


enter while loop 




INI 


leave while loop 




ECG 


enter case group 




iCG 


leave case group 




DC! 


define case label 




EfiB 


enter reserved block 




LEE 


leave reserved block 




EBB 


enter begin block 




LEE 


leave begin block 




ECB 


enter cobegin block 
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ICE 


leave cobegin block 




fiVL 


resume vary loop 




ETI 


retyrn to label 




PCK 


pack into data unit 




UNf 


unpack inta data unit 




INC 


encode into data unit 




DEC 


decode into data -unit 




SRC 


search for data ubit 




SHI 


shift left amount specified in 


operand 


SHE 


shift right amount specified in 


operan 


CSi 


circular shift left 




CSR 


circular shift right 




INC 


input from operator controlled 


medium 


10 1 


input from OCM with format 




OTN 


output to punch 




ONI 


output to punch with format 




QIC 


output to OCM 




OOF 


output to OCM with format 




INU 


inpuf from user file 




OTU 


output to user file 




BII 


convert binary to integer 




ITE 


convert integer to binary 




lie 


convert integer to character 




CTI 


convert character to integer 




IIX 


convert integer to fixed 




XTI 


convert fixed tc integer 




III 


convert integer to float 




LTI 


convert float tc integer 




XT! 


convert fixed to float 




LTX 


convert float to fixed 




OID 


convert octal to decimal 




DTO 


convert decimal to octal 




XIB 


convert fixed to binary 




BIX 


convert binary to fixed 




LIE 


convert float to binary 




ETL 


convert binary tc float 
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LEP 

LB^ 

LWE 



lengtii ic binary digits 
length in bytes 
length ill words 
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123 



APPENDIX F 



CNS-2PS COMPILER LISTING 



BEGIN 

CCMMENT THE FOLLOWING CARCS WERE PUNCHED BY THE SLR(l) SYNTAX 
ANALYZER (SLRIANAU ; 

COMMENT PARSING TABLES FOR MAIN GRAMMAR FOLLOWS; 

INTEGER NUMTERMINALS = 0108; 

INTEGER NUMNTS = 0090; 

INTEGER NUMSYMS = 0199; 



GLCBAL DATA SEGTABLE EASE R12; 



ARRAY 1936 BYTE VSTRING = 


{ #C5X 


, #D9X 


, #D9X 


, #C6X 


f #D9X 


, #E2X 


, #E8X 


#D4X, 


#40X, 


^6EX, 


#6DX, 


#4FX, 


#60X, 


ii^QX, 


#E2X, 


#E8X, 


#E2X, 


#6EX, 


#4CX, 


#E2X, 


#E8X, 


#E2X, 


#40X, 


kC^Xf 


i¥C5X, 


kC3Xt 


J*/D3X, 


j!#40X, 


^C8X, 


#C5X, 


#C1X, 


#C4X, 


#6EX, 


kACX, 


#E2X, 


#E8X, 


#E2X, 


/!^4CX, 


#C5X, 


#C3X, 


#C5X, 


f^D4X, 


#6 EX, 


HACX, 


^C5X, 


#05X, 


J!/C^X, 


Ji^4CX, 


#D7Xt 


#C8X, 


//D9X, 


J^^CIX, 


^fE2X, 


#C5X, 


#6EX, 


#E2X, 


#E8X, 


#E2X, 


#E3X, 


jf^C5X, 




^ 4 C X T 


#C9X, 


i<^C^X, 


#6EX, 


#5BX, 


kACX, 


UCQXt 


#C5X, 


#ClXt 


#C4X t 


^C5X, 


#D9X, 


j^f4CX, 


#C4X, 


kC5Xr 


#C3X, 


frD3X, 


#6EX, 


#4CX, 


fS^E2X, 


^E8X, 


#E2X, 


J^>4CX, 


^i^C4X, 


kcix, 


kE3Xt 


#C1X, 


#40Xt 


^C4X, 


#C5X, 


#C3X, 


^D3X, 


k 6 EX r 


#4CXt 


#E2X, 


#E£X, 


#E2X, 


UDlXf 


#D9X, 


J*^D6X, 


#C3X, 


/^40X, 


kCAX f 


#C5X , 


#C3X, 


i^C2X, 


#40X, 


#C8X, 


#C5X, 


#C1X, 


#C4X, 


/^6EX, 


kACX t 


#E2X, 


#E8X, 


#E2X, 


#D7X, 


#D9X, 


#C6X, 


#C3X, 


#40X , 


kC^Xf 


kC3Xt 


#C5X, 


#D4X, 


#6EX, 


#4CX, 


#E2X, 


#E8X, 


#E2X, 


#07X, 


UD9X , 


kD6X , 


#C3X , 


#D9X, 


kC5X, 


#D5X, 


#40X, 


^C4X, 


#C5X, 


#C3X, 


kD3Xt 


^^CX, 


#C8X, 


#C5X, 


kCiXi 


#C4X, 


#6EX, 


#4CX, 


^E2X , 


#E8X , 


kEZXf 


^C7X, 


W^D9X, 


^ D 6 X , 


kC3X, 


#D9X, 


rfC5X, 


/^D5X, 


#40X , 


#C5Xf 


#D3X, 


kC5X, 


#D4X, 


#6EX, 


#C5X, 


^E7X, 


^E3X, 


#C9Xt 


#C5X, 


#C6X, 


#E2X, 


kcEXj 


#E2X, 


i^6DX, 


^D7X, 


#^09X, 


^D6X, 


#C3X, 


#E2X, 


#E8X, 


#E2X, 


kbLX , 


#D7X , 


#D9X, 


#C6X, 


#C3X, 


^6DX, 


#C9X, 


^4CX, 


#D3X, 


#D6X, 


kC ^X t 


^CiX, 


#D3X, 


#4CX, 


#C4X, 


#ClXt 


#E3X, 


#CiX, 


#40X, 


#C4X, 


kC5Xf 


#C3X, 


kD3X, 


ktEXf 


#4CX, 


#E2X, 


/fE4X, 


#C2X, 


#60X, 


#D9X , 


^D6X, 


#E4X, 


#E3X, 


kC9X, 


#05X, 


§C5Xf 


^40X, 


^C4X, 


#C5X, 


#C3X, 


^D3X, 


yj!6EX, 


#4CX, 


#E2X, 


#E3Xf 


#D4X, 


^40X, 


#C3X , 


#D3X, 


#C1X , 


#E4X, 


#E2X, 


#C5X, 


^^6EX, 


#4CX, 


/^CIX, 


#E4X, 


^E3X, 


#otx , 


^40X, 


kCAXf 


#C1X, 


^E3X, 


#C1X, 


#40X , 


#C4X, 


#C5X, 


#C3X, 


#D3X, 


M6EX, 


kC3X, 


#D5X, 


#C4X, 


#4CX, 


#E2X, 


#E3X, 


#D4X, 


#6EX , 


#4CX, 


#03X, 


kcix, 


#C2X, 


#C5X, 


^C3X, 
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#40X, 


Ji5C4X, 


^C5X‘, 


nceXf 


#05X, 


#C9X, 


#C3X, 


#40X, 


#E2X, 


#E3X, 


#C2X, 


#C5X, 


JI/D3X, 


J^f6EX, 


# 4C X , 


»C5Xf 


U^QXf 


#E2X, 


#E3X, 


#D4X, 


#E8X, 


#40X, 


#C3X, 


#D3X , 


#C1X, 


JHC4X, 


^D6X, 


#40X, 


HC3X, 


#D3X, 


#4CX , 


#C3X, 


^CIX, 


#E2X, 


nC5Xf 


#E2X, 


#C5X, 


#6£X, 


#4CX , 


#C3X, 


#C9X, 


#E2X, 


/^E3X, 


^6EX, 


^4CX, 


#C3X, 


#C1X, 


^E2X, 


#C5X, 


EX , 


#C5X, 


#40X, 


#C3X, 


#03X, 


i^CLX, 


»C9Xf 


#C6X, 


j5^40X, 


#C3X, 


#D3X, 


#4CX, 


/!^E3X, 


#C8X, 


#C5X , 


#D5X, 


/^E2X, 


#C5X, 


^6EX, 


J^4CX, 


#C2X, 


#C8X, 


J^C5X, 


jf^ClX, 


nc^x. 


#6 EX, 


#C3X, 


#03X, 


#C1X, 


#E4X, 


#E2X , 


#C5X, 


#E7X, 


#C7X, 


HD9Xt 


j¥6EX, 


#40X, 


/?C3X, 


#D3X, 


#C1X, 


#E4X, 


#06X, 


^1^D9X, 


#40X, 


#C3X, 


#D3X, 


#4CX, 


#E2X, 


UC5X, 


J^CIX, 


#D9X, 


#C1X, 


#E4X, 


#E2X, 


#C5X , 


#6 EX, 


#E3X, 


#40X, 


#C3X, 


i<jfD3X , 


IX, 


j¥D9X, 


#C5X, 


j^(C3X, 


^C5Xi 


i¥D7X, 


J5f4CX, 


#C3X, 


#D3X, 


#C1X , 


#E4X, 


Jl^E4X, 


/ifE3X, 


#D7X, 


^E4X, 


#E3X, 


#E2X, 


#C5X, 


#6EX, 


#4CX, 


#E2X, 


#4CX, 


#C3X, 


#D3X, 


#C1X, 


^E4X, 


J?^D5X, 


#C3X, 


^06X, 


#C4X, 


^C5X, 


#E2X, 


#C5X, 


#6£X, 


#4CX , 


j^C4X, 


#4CX, 


#C3X,. 


#03X, 


#C IX, 


#E4X, 


#CIX, 


^C3X, 


jf/D2X, 


U^OX, 


#C3X, 


#6EX, 


#4CX, 


#E^X, 


#D5X, 


#D7X, 


?S^D3X, 


#C LX, 


#E4X, 


#E2X, 


#C5X, 


#4CX, 


#D7X, 


#C9X, 


#06X , 


#C3X, 


?S^4CX, 


#E2X, 


#E3X, 


#D4X, 


#6EX, 


#D9X, 


#D6X, 


#D3X, 


#40X, 


#07X, 


#6EX, 


#D9X, 


35^C5X, 


/^E3X , 


#E4X , 


J!^E3X, 


#C IX, 


?i(40X, 


#E4X , 


#D5X , 


#D6X, 


#C2X, 


#C5X, 


nC7X, 


#C9X, 


#C4X, 


#6EX, 


#C3X, 


UD6X , 


#C5X, 


#E2X, 


#C5X, 


#D9X, 


#E5X, 


#C5X, 


frE2X, 


#C5X, 




#5DX, 


#4CX, 


UC3Xf 


#D3X, 


#C1X, 


#E4X, 


#E2X, 


1*07Ai 


#E5X, 


#CLX, 


i^D9X, 


#E8X, 


#4CX, 


#C3X, 


//D3X, 


#C1X , 


#E4X, 


#C9X, 


?^D5X, 


^C9X, 


^E3X , 


#C9X, 


MClX, 


#E4X, 


UE2X, 


nc5x. 


#6EX, 


#4CX, 


#C3X, 


#D3X, 


#C1X , 


#E4X, 



#6EX, 


Ji^4CX, 


#C2X, 


#C1X, 


^iSE2X, 


#D4X, 


#6EX, 


#4CX, 


#D3X, 


^CIX, 


#E2X, 


#C9X, 


#D4X, 


K^D7X, 


#C3X, 


^6EX, 


^4CX, 


#E5X, 


#C1X, 


^D9Xf 


#E4X, 


#E2X, 


#C5X, 


#6 EX, 


^4CX, 


#CIX, 


^E^X, 


#E2X, 


JS^C5X, 


#6EX, 


#40X, 


J<^C3X, 


#D3X, 


#C1X, 


#E4X, 


#C1X, 


}^E2X , 


UC5Xt 


#40X, 


5<|!C3X, 


#C5X, 


^D3X, 


#E2X, 


#C5X, 


#4CX, 


#4CX , 


JKE6X, 


#C8X, 


HC9X, 


#C3X, 


#E4X , 


#E2X, 


#C5X, 


#6EX, 


#4CX, 


#C1X, 


3*^E^X, 


#E2X, 


#C5X, 


#6EX, 


#40X , 


//C3X, 


#D3X, 


i^ClX, 


jf^E4X, 


#C5X, 


#C7X, 


#C9X, 


#D5X, 


#4CX, 


#4CX, 


^ E 2 X , 


#C5X, 


#E3X, 


#4CX, 


#C5X, 


?i/6EX , 


#E3X, 


^D6X , 


#4CX, 


#4CX, 


i^E2X, 


/fE6X , 


#CLX, 


#D7X, 


#E2X, 


/)C5X, 


#6EX, 


#4CX, 


#C6X, 


#CIX, 


^E4X, 


#E2X, 


#C5X, 


#6EX, 


#C3X, 


/jCEX, 


#40X, 


#C3X, 


#D3X, 


#4CX , 


^C9X, 


/i^DSX, 


^D7X, 


/^E^X, 


#E4X, 


iVE2X, 


#C5X, 


?/6BX, 


^4CXf 


^E3X, 


^CIX, 


^C3X, 


#D3X, 


#C5X, 


#E2X, 


JVC5X , 


^6 EX, 


#4CX, 


^C6X, 


#40X, 


nc3Xf 


^^D3X , 


#C1X, 


#E4X, 


#D6X , 


iiEAX, 


#D9X, 


UC3Xj 


^C5X, 


#E2X, 


#C5X , 


#6EX, 


^4CX, 


#C5X, 


#40X, 


^C3X, 


#D3X, 


^CIX, 


#E4X, 


nc5Xt 


^C3X, 


#D6X, 


#C4X, 


^C5X, 


f^^EZX, 


#C£X , 


#6EX, 


U^CXf 


^C7X, 


#D3X, 


J^ICIX, 


^ E 4 X , 


UE2X, 


UC5X, 


#C1X, 


jS(C3X, 


#C2X , 


#40X, 


i^fC3X, 


#6£X, 


HC3X, 


#C1X, 


#D3X , 


#C3X, 


^C5X , 


j*jC4X, 


#E4X, 


#D9X, 


#C5X, 


#4CX, 


UC3Xj 


#D6X , 


#D5X, 


#E3X, 


#C8X, 


HD9Xi 


#C1X, 


#E2X, 


#C5X, 


/^G9X, 


HL5X, 


#4CX, 


i//C4X, 


J^CIX, 


#C9X, 


^E3X, 


#6EX, 


^4CX, 


#C3X, 


^D5X, 


it^CX, 


ttCQX, 


#C5X, 


/^CIX, 


#D5X, 


#C4X , 


#4CX , 


#D9X, 


nc5Xf 


#40X, 


# D / X , 


#C8X, 


yifD9X, 


#C1X, 


#E6X, 


/<C1X, 


#C9X, 


j‘!iE3X, 


nAcXf 


#C5X, 


?^6EX, 


#E2X, 


#E3X, 


#C6X, 


#4CX, 


)<^D2X, 


#D6X, 


#D6X, 


#C7X, 


#E2X , 


fiC5X, 


#6EX, 


^6BX, 


]^^cx. 


#C1X, 


#C3X, 


#40X, 


#C3X, 


^C3X, 


#4CX, 


^E3X, 


#C5X, 


i')iE2X, 


#E3X, 


^£2X , 


/^C5X, 


#6 EX, 


#4CX, 


UC9X, 




^D5Xf #C3Xt 
#6EXf #4CX, 
#6EX, #C6X, 
#C5X, ^C^Xt 
#C9X, #6EX, 
#C3X, ^CIX, 
#C5X, iifE7X, 
#E2X, ^E3X, 
#C3X, #C1X, 
#4CX, #C2X, 
#40X, ^C3Xi 
^CIX, #C2X, 
#4CX, #C3X, 
#D3X, #6EX, 
J^^05X, #E2X, 
#E2X, #40X, 
#C5X, #E6X, 
#D3X, #40X, 
#C6X, #E3X, 
#40X, ^D7X, 
#D7X, #D3X, 
#CiX, |i^E4X, 
#C3X, ^D6Xf 
#4CX, #C4X, 
#40X, i^C3X, 
#C5X, #C1X, 
JifC2X, #C9X, 
j^4CX, ^C3X, 
#6EX, #4CX, 
/^E7X, #D7X, 
#40X, #C9X, 
#D9X, #6EX, 
^09X, f/D4X, 
^40X, JitD6X, 
/^C5X, #C1X, 
#D4X, #E4X, 
#D9X, #6EX, 
^D9X, ^C5Xt 
#C2X, #E2X, 
#E3X, #C1X, 
#4BX, ^4CX, 
#C3X, #40X, 
#07X, #E4X, 
#6EX, #4CX, 
#C7X, #6EX, 
#C5X, #D3X, 
#E2X, #E4X, 
i(^C3X, ?i^D3X, 



#C9X, ^^40X, 
^D9X, #C5X, 
#D9X, #D6X, 
#40X, jf/D9X, 
jS^E2X, #E3X, 
#E2X, #C5X, 
#40X, ^C3X, 
#6EX, #4CX, 
#E2X, /^C5X, 
#C1X, ^E2X, 
#D3X, //CIX, 
#C5Xf #D3X, 
#C1X, ^E2X, 
^D9X, 
#6EX, ^7AX, 
#C3X, #D6X, 
i^CSX, ^C9X, 
#C5X, #E7X, 
#C8X, ^C5X, 
fi^CiX, #D9X, 
#C5X, MOX, 
#E2X, fifC5X, 
#C2X, ^/C5X, 
#C1X, #E3X, 
?(^D3X, ^CLXf 
#03X, #40X, 
#E3X, /^E2X, 
#C8X, #CIX, 
j^E2X, #E3X, 
#D9Xf ^6EXt 
^C4X, ^C5Xt 
#4CX, ^D9X, 
#6EX, /i(4CX, 
#C7X, ^C5X, 
#D3X, #40X, 
^D3Xt ^C4Xt 
#5CX, ?^^61X, 
#C1X, #D3X, 
#4CX, //D9X, 
#40X, #E4X, 
^D9X, j^C5X, 
#C5X, «CiX, 
#E3X, #40X, 
?1^D9X, #C5X, 
#4CX, ^D9X, 
J^^C4X, #40X, 
#C2X, #/E2X, 
#C1X, #E4X, 



iS^C3X, #D3Xf 
#CiX, #03X, 
#D4X, Ji(4CX, 
#C5X, #C1X, 
#C5X, ^07X, 
#D6X, ?!?C6X, 
#C1X, JiE2X, 
#D3X, #C1X, 
#40X, #03X, 
#C9X, J^C3X, 
#E4X, j^lE2X, 
#40X, #C3X, 
#C5X, #40X, 
#C5X, #CiX, 
#4CX, #E2X, 
#D5X, #E2X, 
#D3X, #C5X, 
#D7X, J1^D9X, 
#D5X, #4CX, 
?^E3X, #6EX, 
#E2X, i¥E3X, 
#6EX, itCZX, 
#C7X, #C9X, 
#C1X, #40X, 
#E4X, #E2X, 
#C5X, UElXt 
#40X, #C5X, 
f!/5D9X, #40X, 
#C1X, #E3X, 
#4CX, ^E3X, 
^D5X, #E3X, 
#C5X, HCiX, 
#CIX, j^^C4X, 
#09X, #6EX, 
#E2X, ^C5X, 
#C9X, #E5X, 
fl^D9X, HC5X, 
#40X, #D7X, 
#C5X, #C1X, 
#D5X, ^^IC9X, 
#C IX, ^D3X, 
^D4X, nC5X, 
#D7X, ^CIX, 
#C1X, H03X, 
J/C5X, ^CIX, 
#D5X, j^fClX, 
#C3X, #D9X, 
#E2X, ^C5X, 



iSIClX, 


#E4X, 


a^cXf 


#E5X, 


#E2X, 


a^C9Xj 


l!/D3X, 


#40X, 


#E3X, 


#C8X, 


a^CXj 


#C9X, 


^C5X, 


#40X, 


iiCZX, 


#C5X , 


J^>C9X, 


#E2X, 


a^CXt 


#E2X, 


^C5X , 


#6EX, 


itC IX, 


#E2X, 


^C3X, 


#C1X, 


#D3X, 


^40X , 


^E3X, 


#cix, 


i^^6EX, 


B^CSX , 


itACXf 


#C2X, 


^6EX, 


#C4X, 


^E3X, 


#D9X, 


nACx, 


^E2X, 




f/40X, 


#C5X, 


#C7X, 


j^iCSX, 


?iiE2X, 


?SfE4X, 


^D5X, 


UC5Xi 


#6EX, 


//C7X, 


#D9X, 


^E7X, 


#D7X, 


iftiC5X, 


#E7X, 


AE^X, 


#E2X, 


IX , 


#C2X, 


^CSX, 


/i^C6X, 


/ifCSX, 


#40X, 


^C4X, 


#E2X, 


EX , 


^6CX, 


?#C3X , 


#D5X, 


i^/ACX, 


#D6X, 


?i/C4X, 


#5CX, 


^D9X, 


#C9X , 


^D3X, 


#40X, 


#E3X, 


#6EX, 


H^QX , 


^C6X, 


iitEX, 


^4CX, 


=HC9X, 


#C1X, 


ntEXf 


#4CX, 


^C3X, 


#40X, 


#D4X, 


#C5X , 


i^C9X, 


#D7X, 


J^I6EX, 


#4CX, 



#E2X^ 


#C5X, 


J^CIX, 


#C9X, 


#C7X, 


#C5X, 


#D7Xt 


#D9X, 


^ D 9 X , 


#E4X, 


?^D5X, 


#C4X, 


#D3X, 


#C9X, 


^D3X, 


J!^^0X, 


#E3X j 


#6EX, 


^E3X, 


#D^X, 


#4CX, 


#C3X, 


#C5X, 


#6EX, 


?^C2X, 


#C5X, 


#C3Xi 


#C6X, 


#E3X^ 


nE^Xf 


#D3X, 


^EZXf 


#D6X , 


j¥D6X, 


i^^D6X, 


#C9X, 


j^E4X, 


#C5X, 


^C9X, 


jfifC4X, 


#C3X, 


?5^C2X, 


^C9X, 


#C5X, 


#C5X, 


#E2X, 


^C9X, 


i^E3X, 


#4CX, 


#D9X, 


#6EX, 


#^CXf 


#D9X, 


#6 EX , 


^D7X, 


#D9X, 


#4CX, 


#C5X, 


^D3X, 


#C5X, 


#C9X, 


#C5X, 


#E3X, 


^C5X, 


#E4X, 


#C2X, 


U^CXt 


#D9X, 


#6 EX, 


#ACX, 


#D7X, 


#C5X, 


UE>CX, 


#ACX, 


#6EX, 


#C1X, 


#C4X, 


#C1X, 


#4DX, 


^48X, 


#E4X, 


#C5X, 


#C9X, 


#D5X, 


?S^D4X , 


#E2X, 


# E 3 X , 


#CiX, 


nctx. 


#C9X, 


^6 EX , 


At4CX, 


#E3X, 


#4CX, 


UCZXi 


#C9X, 




#E3X, #E2X, 
#4CX, #03Xf 
#D7X, #C5X, 
#D3X, #4CX, 
#D5X, #6EX, 
#07X, UC5Xf 
UD9X, #D3X, 
#C9X, f^D9X, 
UE2X, #40X, 
#4CX, #C2X, 
i^bEX, U^CX, 
#CIX, #40X, 
#E3X, ?i^E2X» 
#Q4X, #C5X, 
#C1X, #D9X, 
#C9X, #C5X, 
i^^C3X, ^CIX, 
#D9X, #C9X, 
??D6X, #D5Xf 
#C4X, #CIX, 
#4CX, #C3X, 
f^40X, #D5X, 
#D9X, #40X, 
#D9X, #40X, 
j 5^D4X, #C5Xf 
#40X, #C4X, 
^6EXf flt4CX, 
#E^Xi m5Xf 
#E2X, #E3X, 
#6EX, #4CXf 
#C9X, #C5Xt 
J^4CX, #C2X» 
^6EX, #4 CXt 
#D 9X, #6EX, 
#D6X, ^D3Xf 
#4CX, #C2X, 
#6 EX, #4CX, 
/?CIX, U^OX, 

# 0 ex, //D3X, 

#D4X, #C5X, 
#D7X, i^D9X, 
#CLX, #D9X, 
#C9X, #C9X, 
#4CX, ^D9X, 
#7EX, #3FX, 
^C5X, #40X, 
#C2X, #60X, 
^D4X, /^C3X, 



J5/40X, ^S^C6X, 
?!^D6X, #C7X, 
#D9X, #6EX, 
^C2X, ^5/C9X, 
#4CX, HEZX^ 
#D9X, #6EX, 
#C3X, #C9X, 
j!^E 2X, #C3X, 
i^D7X, /^D9X, 
#C9X, ^£3X, 
#C2X, #C9X, 
JS/E4X, j^D5X, 
#40X, #CbX, 
6 E X , ^ 4C X , 
#6EX, ^4CX, 
#D3X, #C4X, 
#E3X, ^^CX, 
^6 EX t ^4C X , 
#E2X, ^6tX, 
J^E3X, #CLX, 
#C8X, #CiX, 
J^CIX, #04X, 
^E5X, J^CIX, 
UC6Xf J^C9Xr 
#6EX, #4CX, 
^CLX, ^E3X, 
#E2X, #£3X, 
#C3Xt #40X, 
#C1X, A^E3X, 
#E2X, #E3X, 
#D3X, /^C4X, 
i5iC6X, #D6X, 
UC2Xi ilDbX, 
nClXt jf^D5X, 
^40X, ^07X, 
#06X, j¥D 6X, 
/|tC2X, »D6X, 
fifE4X, ^05X, 
^4CX, ^C6X, 
^bEX t ff 4 C X , 
#£EX, ^4CX, 
#6EX, n^cx, 
#D3X, #C4X, 
/1<C5X, m3X, 
#7EX, #4CX, 
^05X, #C1X, 
^E3X, »CLX, 
^6EX, ^4CX, 



#CIX, }^C3X, 
#C9X, /ifC3X, 
#C1X, #D5X, 
#E3X, #E2X, 
#C8X, 3!#C9X, 
#E2X, #C8X, 
^.D9X, j¥E 2X, 
#09X, #03X, 
#C9X, i^6EX, 
^E<iX, ^40X, 
/^E3X, #E2X, 
#C9X, ?^E3X, 
#E4X, #D5X, 
UCZXt #C9X, 
#C2X, #C9X, 
#40X, #D5X, 
4C3X, IfCQXf 
#C3X, #C3X, 
»4CX, iltC3X, 
#4CX, #E4X, 
#D9X, U^QX, 
#C5X, #6EX, 
#D9X, #6BX, 
#C5X, #D3X, 
#E2X, )5fE3X, 
^CXX, #40X, 
?SfC 1X, /i^ESX, 
#CIX, 
#E4X, MEZX, 
#CIX, #E3X, 
#4GX, U05X, 
#03X, ^40X, 
#D6X, #D3X, 
i^C^X, #06X, 
#D9X, #C9X, 
J^OSX, #40X, 
#D6X, #D3X, 
#C9X, #E3X, 
#E^X, #05X, 
#09X, #C5X, 
#C2X, #D6X, 
i^C2X, #D6X, 
#40X, ^D5X, 
#ACX, #D6X, 
#6EX, #4CX, 
#D4X, #C5^X, 
#C2X, #D3X, 
#C9X, j^E3X, 



#E3X, 


#D6X, 


fiClX, 


#D3X, 


^C4X, 


#D3X , 


^4CX, 


#E2X, 


//C6X, 


s^fE3X, 


i^fC3X, 


j*^D3X, 


^CEX, 


)<)!D3X, 


*4CX, 


#C2X, 


#D5X, 


#D6X, 


^C3X, 


UDbX , 


^4CX , 


#C4X, 


i^lEEX, 


#4CX, 


j^C3X, 


^40X, 


](/E3X, 


#E2X , 


iiE3X, 


/i'-E2X, 


^CIX, 


l^D4X, 


IX, 


#D9X, 


?iC IX, 


#D9X, 


^cax , 


#C1X , 


//06Xt 


#C9X, 


?iC6X, 


#E4X, 


^^4CX , 


#C3X, 


ii^CXf 


#C3X, 


?f?C4X, 


#40X, 


?^C IX, 


# E 3 X , 


?i/E4X, 


J^D5X, 


^E4X, 


i^E2X, 


#D4X, 


#C5X, 


^40X, 


?ifE5X, 


i^E4X, 


J^E2X , 


WC IX, 


#D4X, 


^^lE2X, 


#C5X, 


^4CX , 


^D6X, 


HDSX, 


#4CX, 


^6EX, 


#D5X, 


#C3X, 


#D6X, 


^40X, 


#C4X, 


nbEX, 


#4CX, 


^C2X, 


^4CX, 


^iC3X, 


#40X, 


HDbX t 


#D3X, 


^iCEX, 


#D3X, 


ncix. 


/|tD4X, 


UDlXf 


#C5X, 


f^lE3X, 


^CIX, 


«6EX , 


/^4CX, 


ftC5X , 


#4CX, 


^C5X, 


^D4X, 



#D9Xi 


#6EX, 


^40X, 


#D6X, 


#D6X, 


JS^C9X, 


j;fC5x, 


#C3X, 


ii!4CX, 


^C£X, 


#E2X, 


#C8X, 


#D3X, 


#C3X, 


#C9X, 


J(?E3X, 


#E3X, 


#C3X, 


/?D5X, 


^E2X, 


#CIX, 


#E3X, 


#C2X, 


#C9X, 


^D5X, 


IX, 


#40X, 


?^E5X, 


#4CX, 


kCtX, 


i^C5X, 


U6EX, 


5¥40X t 


#C7X, 


^4CX, 


#C3X, 


#D9X, 


#40X, 


#E3X, 


#6EX, 


#D5X, 


#C3X, 


^ CQX 1 


#CIX, 


tfcax, 


^CIX, 


j^DEX, 


?;^cix. 


#E4X, 


#E2X, 


^C9X, 


#E3X, 


#40X, 


#C6X, 


^t6EX, 


#4CX, 


IX, 


^D9X, 


#40X, 


#C6X, 


#C3X, 


#EEX, 


#C3X, 


#C5X, 


C 7 X , 


#C5X, 


#C2X, 


#D6X, 


#Q6X , 


#E3X, 


#D5.X, 


l^E2X, 


#C1X, 


#E3X, 


ff C2X , 


f/C6X, 


#D5X, 


#C1X, 


#C5X, 


//E7X, 


#40X, 


J<)!E5X, 


#4CX, 


i¥CEX, 


#C5X, 


i^6EX, 


#D9X, 


#6EX, 


3^C2X, 


3<iJD3X, 


#E2X, 


//E4X, 


#D5X, 


i'^ClX, 


#egx. 


#C1X, 
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#D9X, 


#C5X, 


#C1X, 


#40X, 


#D5X, 


#C1X, 


#C4X, 


#C5X, 


#6EX, 


#E2X, 


#E6X, 


#C1X, 


#C7X, 


#E2X, 


#05X, 


#C1X, 


#D9X, 


#C3X, 


#C8X, 


#40X, 


#C4X, 


#C1X, 


#E3X, 


#C1X, 


#40X, 


#E2X, 


#E3X , 


#D9X, 


#E4X , 


#C3X, 


#E3X, 


#E4X, 


#C9X, 


#C5X, 


# 6 E X , 


#4CX, 


#06X, 


#C9X, 


#03X, 


#05X, 


#40X, 


#D5X, 


#C1X, 


#D4X, 


#C5X, 


#6 EX, 


#06X, 


#D6X, 


#D9X, 


#4CX, 


#D7X, 


#D9X, 


#D6X , 


#03X, 


#C5X, 


#04Xk 


#E4X, 


#D9X , 


#C5X, 


#40X, 


#D5X, 


#C1X, 


#D4X, 


#05X, 


#6EX, 


#40 X, 


#0 IX, 


#03X, 


#E3X, 


#E4X, 


#01X, 


#03X, 


#40X, 


#07X , 


#01X , 


#D9X , 


#C IX, 


#04X, 


#C5X , 


#E3X, 


#05X, 


#09X, 


#40X, 


#03X , 


#C9X, 


#E2X, 


#E3X, 


# 6 E X , 


#4CX, 


#C6X, 


#E4X , 


#E3X, 


#C7X, 


#E4X, 


#E3X, 


#40X, 


#C7X, 


#C IX, 


#D9X, 


#0 IX, 


#D4X, 


#£2X, 


#6EX , 


#40X , 


#D3X, 


#01X , 


#C2X, 


#C5X, 


#D3X, 


#4CX, 


#D7X , 


#0 IX, 


#09X, 


#01X, 


#04X, 


#E 2X , 


#6EX, 


#4FX , 


#4FX , 


#4FX, 


#D9X , 


#C5X, 


#E2X, 


#E4X, 


#C4X, 


#05X , 


#C9X, 


#C5X, 


#E3X, 


#E4X, 


#D9X, 


#U5X, 


#E3X, 


#D6X, 


#07X, 


#06X , 


#E3X , 


#D6X, 


#09X, 


#C5X, 


#E2X, 


#05X, 


#C9Xt 


#£5X, 


#05X, 


#40X , 


#D9X, 


#05X, 


#E2X, 


#C6X , 


#E4X, 


#D9X, 


#C3X, 


#05X , 


#6 EX, 


#E6X , 


#0 iX, 


#C9X, 


#E3X, 


#09X, 


#D5X, 


#D7X, 


#E4X, 


#E3X, 


#4CX , 


#06X, 


# C 6 X , 


#D9X , 


#D4X , 


#C1X, 


#E3X, 


#40X, 


#D5X, 


#OiX, 


#D4X, 


#05X, 


# 6 E X , 


#D6X, 


#E4X T 


#E3X, 


#D7X, 


#E4X, 


#E3X, 


#05X , 


#D5X, 


#03X, 


#C6X, 


#C4X, 


#05X , 


#C4X, 


#05X, 


#03X, 


#D6X, 


#C4X, 


#05X, 


#07X, 


#0 IX, 


#03X, 


#D2X , 


#C9X, 


#05X, 


#£4X, 


#D5X, 


#D7X, 


#03X, 


#D2X, 


#C9X, 


#D5X, 


#E3X, 


#D6X, 


#D6X, 


#E4X, 


#E3X, 


#D6X, 


#06X, 


#D7X , 


#D9X , 


#09X , 


#D5X, 


#E3X, 


#D7X, 

#D4X) 


^#D5X, 

> 


#C3X, 


#08X, 


#D9X, 


#C5X, 


#01X, 


#C4X, 


#D6X, 


#03X, 



yjRR^Y 0199 INTEGER LOCLENGTH = (^OCCOOOOA, #CCCCC283 , #0000CDC6 , 
SiOOOOCF44, Jl^0e001041, ,-!^0000i080, ^000013CF, 1^00002986, 

1^00002608, ?i^00C02D0A, ^000C2F91, 1^00003302 , #00003850, 

#00003F43, #00004707, #00006AC2, #0CCC94A4, #00009006, 

#0000A4C3, #OOOGAAOi, #uOOOAD84, #OOCO/CE84, #00006201, 

#0CC.0B08A, #00000004, #00000544, #00000644 , #00000744 , 

#00000842, #0000DE8l, #0000CEC0, #0CCCE2C4, #CCC0E305, 

#OC00E702, #0CC0E782, #000GE804, #OOCOF085, #OOOOF107, 

#000.0F383, #000iCECl, #C0CICF01, #0001 1541, #00011581, 

#00011503, #00011682, #00011983, #00CllE4i, #C0C11E82, 

#00011F10, #00012686, #00012805, #00012951, #00013804, 

#00013903, #00014044, #00014144, #00014247, #00014407, 

#00014844, #00014946, #00015010, #0001540A, #00015691, 

#0C0-15AC3, #CCC15EC6, #00016400, #0CCi6B0A, #00016651 , 

#00017412, #00017880, #00017693, #00018503, #00018682, 

#00018983, #00018A4B, #00019110, #OOC1978A, #00019Ail, 

#0001A0C1, #00C1A102, #0001A181, #0CCIA101, #0001A2CC, 

#0001A510, #000IA9i0, #0001AC04, #OOC1AE06, #00016643, 

#00016710, #00010801, #00010842, #00010806, #Q00i0A48, 

#00010044, #00010047, #00010184, #00010285, #00010300, 

#00010706, #00010886, #000iCA06, #00C1C686, #00010005, 

#0CC.IDE44, #0C01DF45, #0001EC85, #0CC1EIC4, #C001E2C4, 

#0001E303, #00000345, #0000048F, #0CCCC84A, #CCC00A00, 
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#00001793, #00001C4E, #00001FC6, #00002551, #00003840, 

#00004005, #00004140, #00004446, #00004800, #00004600, 

#OCOC4F06, #00005100, #00005506, #00005706, #00005/^8E, 

#000.05E06, #00006000, #00006400, #00006700 , #00006/^66, 

#00006000, #00006F4C, #0000724F, #0C(C76CE, #00007993, 

#00007E4F, #00C0820F, #000085CF, #OOC0898F, #00008040, 

#0C00908F, #000'J954F, #00009910, #OCCC5E8B, #CC00A14E, 

#OOOOA6iO, #0G00AA4D, #0000AF8D, #00006310, #00006700, 

#C000bA4D, #00000111, #00000801, #00000011, #00000152, 

#00000500, #00000800, #00000606, #OOOCE44B, #0CCOE9OB, 

#OOOOEBD3, #0000F452, #OOOOF80B, #00C0F686, #00C0FE4B, 

#00010100, #00010452, #00010806, #00010680, #00010F4B, 

#00011200, #0G0il70A, #G0C11A50, #O0Cl-230E, #00012092, 

#00013200, #0CO1354E, #00013A8B, #00013040, #00C145CA, 

#00014010, #C0015B8A, #00016000, #OOC16F92, #00018046, 

#00018306, #0001870A, #00018010, #0CC195CA, #C0C19E4A, 

#OC01AF9C, #00016386, #00016617, #0C0100CF, #0001C48E, 

#0001CF0A) ; 

COMMENT THE OPDA HAS 0197 READ STATES; 

ARRAY 0197 SHORT INTEGER READSTART = (#0000S, #0C02S, #C004S, #00065, 
#00GCS, #OOOES, #e010S, #00145, #00175, #00195, #00165, 

#00105, #001FS, #00215, #00235, #00905, #00925, #00945# 

#00965, #00985, #009AS, #01075, #010AS, #01005, #010ES, 

#01105, #01705, #01805, #01825, #01845, #01865, #01885, 

#018AS, #01805, #018ES, #01905, #01925, #01945, #01965, 

#02Q3S, #02065, #02095, #02065, #020CS, #027AS, #02E7S, 

#02E9S, #02EBS, #02EDS, #02F2S, #02F7S, #02F9S, #02F6S, 

#02FDS, #02FFS, #03015, #03035, #03055, #03725, #03745, 

#03E1S, #G44ES, #04665, #04605, #052AS, #05385, #053AS, 

#05305, #053ES, #05405, #05425, #054^5, #05465, #05485, 

#054AS, #05465, #05505, #05565, #05065, #05055, #05075, 

#050AS, #05005, #050FS, #06405, #06695, #06665, #U6BPS, 

#06045, #06095, #06065, #06025, #06055, #06075, #06095, 

#06085, #06DFS, #06E3S, #06E7S, #06£ES, #OoEES, #06F6S, 

#06FSS, #06FAS, #06F0S, #07005, #07CAS, #07005, #07795, 

#07665, #07EAS, #07605, #08595, #08565, #08505, #085FS, 

#08615, #08645, #08675, #08695, #086ES, #08715, #08755, 

#087AS, #087FS, #08815, #08865, #08605, #08915, #03985, 

#089FS, #08A1S, #08A4S , #08AcS, #08AAS, #C8ADS, #G8AFS, 

#09105, #091FS, #09215, #09235, #09265, #09295, #09265, 

#09205, #092FS, #09385, #09415, #094AS, #09675, #09665, 

#09BFS, #09035, #09065, #09095, #09005, #09035, #09055, 

#U9D7S, #09005, #C9E3S, #09E8S, #09EES, #09EES, #09F1S, 

#09F4S, #09F7S, #U9FA5, #09FDS, #OACCS, #0A02S, #0AC4S, 

#0A7iS, #0A7AS, #0A8iS, #0A87S, #0A9CS , #0A99S, #0AA2S, 

#0AA9S, #0A62S, #OABBS, #0A04S, #0AC7S, #CAC9S, #06365, 
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/^QB38S, #0B46S, #0B48S, 


#0B51S, ii^OB 


53S, #0B59S, 


#0B5DS, 


#0B62S, #0B64S, J^^0B66S, 


#0E6as); 










ARR>iV 0197 BYTE RDNUM = (#01Xf 


#0iX, 


#01X, 


ac5>, 


#01X, 


#01X, 


#03X, 


#02Xt 


#01X, 


?¥C1X, 


#01X, 


^OIX, 


#01X, 


noix , 


#6DX, 


#01X, 


#01X, 


#0 IX, 


#0 IX, 


/^OIX, 


j!^6DX, 


#02X, 


#oix, 


i^ClXf 


#01X, 


#6DX , 


#C2X, 


#01X, 


#01X, 


#01X, 


^QIX, 


#01X, 


#01X, 


^QlXf 


#01X, 


#01X, 


#0 1X, 


#o;x, 


#6DX, 


#C2>, 


#02X, 


#01X, 


^OIX, 


#6CX , 


#6DX, 


#01X, 


#01X, 


#01X, 


#04X, 


#04X, 


#01X, 


#01X, 


#01X, 


i^C IX, 


#01X, 


#01X, 


#C1X, 


j;^6cx, 


#01X, 


#6DX, 


ff6DX , 


#6DX, 


^^^01X , 


#6CX, 


#ODX, 


#01X, 


#01X, 


fto IX, 


^OiX, 


ii^ClX, 


J^OIX, 


#0iX, 


#01X, 


#C IX, 


#03X, 


#ocx. 


#01X, 


U6CXf 


^09X, 


#01X, 


^02X, 


#0 IX, 


#02X, 


^80X, 


#6DX, 


#OiX, 


#C3X, 


#04X, 


#04X, 


#04X, 


^r04X , 


401X, 


#01X, 


/fClX^ 


#OiX , 


#03X, 


#C3X, 


#0 3X, 


#03X, 


#02X, 


UQIX, 


#01X, 


#01X, 


#C2X, 


#02X, 


#09X , 


#01X, 


#6CX , 


^6DX , 


#03X , 


#0iX, 


^6CX, 


#01X, 


jl/OlX, 


#01X, 


#01X, 


#C2X, 


#02X, 


^^CIX, 


#C4X, 


f^QZXf 


#03X, 


#04X , 


#G4X, 


#01X , 


#04X, 


#05X, 


#0 4X, 


it06Xi 


UC6Xf 


#OiX, 


#02X, 


^fOlX, 


#C2X, 


#02X, 


#C1X, 


#6CX, 


?f02X, 


#01X, 


#0\Xt 


?if02X , 


#02X, 


//OiX , 


^ClXf 


#0 IX, 


#cax, 


#C6X, 


rfOtiX , 


^6DX, 


ucjx. 


^03X , 


^ 0 3 X , 


#02X, 


#02X , 


#02X, 


#06X , 


#CLX, 


#01X, 


#05X, 


HQ5Xf 


?^04X , 


#02X, 


#02X, 


nc2Xt 


#02X, 


#02X, 


#02X, 


#02X, 


#02X, 


tfOiX, 


/^OiX , 


fif6CX , 


#08X , 


#C6X, 


#05X, 


#OSX , 


#G8X, 


#0 8X, 


#0 6X, 


HQ8X, 


#08X, 


#08X, 


#02X, 


#C IX, 


#6DX , 


#01X , 


#CCX, 


#01X, 


^08X, 


#01X, 


#05X, 


#03X, 


#04X, 


J^IOIX, 


#01X, 


#01X, 


#C2X) 


ARR>SY 0145 BYTE SYMLIST = 


(#01X 


, #0CX 


, #02X 


, #ccx 


, #CIX 


, #cox 


, #05X 


^06X, 


#07X, 


^08X, 


^09X, 


#00X, 


?^03X, 


#ccx. 


#ODX, 


#oox. 


#OAX, 


#OBX, 


#OCX, 


#COX, 


#0BX, 


^ocx, 


i^^OOX, 


C 3 X , 


#00X, 


#G3X, 


#oox. 


#0 2X, 


#00X, 


#C4X, 


#00X, 


s04X , 


#cox. 


#CDX, 


#oox. 


#oox, 


#CiX, 


^ 0 zX , 


#03X, 


04 X , 


U05X, 


?^06X , 


#07X , 


iicext 


#09X, 


#OAX, 


#CEX, 


#ccx, 


f^ODX, 


#OEX, 


#OFX, 


#1CX, 


#I1X, 


#12X, 


#13X, 


#L4X, 


#15X, 


jf^l6X, 


#17X, 


/^18X, 


#19X, 


#1AX, 


i^^lBX, 


#1CX, 


#1DX, 


#1EX, 


#1FX, 


i^£.CX t 


#21X, 


#22X, 


#23X , 


#24X, 


#25X, 


#26X, 


#27X, 


#28X, 


#29X, 


j^2AX, 


/!^2BX, 


#2CX, 


j;^2DX , 


/^2EX, 


^|i2FX, 


^3CX, 


#31X, 


#32X, 


#33X, 


#34X, 


/^35X, 


#36X, 


#37X, 


#38X, 


#39X, 


^3AX, 


#36X, 


#3CX, 


#3DX, 


^3 E X , 


#3FX, 


#^0X, 


#41X , 


#42X, 


#43 X, 


#44X , 


#45X, 


#46 X , 


#A7X, 


#48X, 


#49X, 


U^AXj 


#4BX, 


^4CX, 


#4DX, 


ii^EXj 


#4FX , 


#50X , 


#51X, 


#52X, 


#53X, 


<^54X, 


^55X, 


#56X, 


#57X , 


^56X, 


#59X, 


#5AX, 


#56X, 


#5CX, 


#5DX, 


#5EX, 


#5FX, 


#6CX, 


#61X, 


#62X , 


#63X, 


^#64X, 


#65X, 


#66X, 


#67X, 


^68X, 


#69X, 


J^6AX, 


#6BX, 


#6CX, 


#0DX) 


* 




CLOSE BASE; 




















GLOBAL DATA SEGT2 BASE K6 
















ARRAY 2778 


BYTE CGNTSYMLIST = 


( 




























#oox. 


#04X, 


#00X, 


//04X, 


/i^OOX, 


#04X, 


nocx. 


#04X, 


#CCX, 


#00X, 


#01X, 


#02X, 


#03X, 


#04X, 


UQ5Xi 


#06X, 


t^oix. 


#08X, 


//C9X, 


#OAX, 


#OBX, 


#CCX, 


J^ODX, 


^^fOEX, 


#CFX, 


#10X, 


tfllX, 


#12X, 


#13X, 


#14X, 


#15X, 


#16X, 


#L7X, 


#18X, 


# I9X, 


^lAX, 


UlbXf 


# iC X , 


#1DX, 


#1EX, 


#1FX, 


#2CX, 


#21X, 


#22X, 


#23X, 


/^24X , 


t^25X, 


#26X, 


/;27X, 


#28X, 


#29X, 


#2AX, 




oil 



itZdXf 


#2CX, 


#2DX, 


^2EX, 


#2FX, 


#30X, 


#3 IX, 


#32X, 


#33X^ 


#34X, 




#36X, 


#37X, 


#38 X, 


#39X, 


#3AX, 


J5I3EX, 


#3CX, 


#3DX, 


#3EX , 


#3FX, 


#40X, 


#41X, 


#42X, 


#43X, 


#44X, 


#45X, 


#46X, 


#47X, 


#48X, 




JI/4AX,. 


#4BX, 


#4CX, 


#4DX, 


#4EX, 


^4FX, 


#50X, 


#51X, 


#52X, 


#53X, 


#54X, 


#55X, 


#56X, 


#57X, 


#58X, 


^59X, 


#5AX, 


#5BX, 


#5CX, 


JS^5DX, 


#5EX, 


#5FX, 


#6GX, 


#61X, 


#62X, 


#63X, 


#64X , 


#65X, 


#66X, 


#67X, 


#68X, 


#69X, 


#6AX, 


#6BX, 


#6CX, 


?^1EX, 


#21X, 


# 0 C X , 


#1CX, 


ji^OOX, 


U21X, 


#00>, 


#23 X , 


#OOX, 


#OOX , 


^OIX, 


#02X, 


#03X, 


#G^X, 


#05X, 


^06X, 


/i(07>. 


#08X, 


#09X, 


#CAX, 


#CEX, 


#OCX, 


#OCX , 


#OEX, 


#OFX, 


#10X, 


#11X, 


#12X, 


#i3X, 


#14X, 


J^15X, 


#16X, 


#17X, 


#18X, 


#19X, 


#1AX, 


A^IBX, 


#1CX , 


#1CX, 


#1EX, 


^IFX, 


#20X, 


#21X, 


#22X, 


#23X, 


#24X, 


#25>, 


#26X, 


#27X, 


#28X, 


#29X, 


#2AX, 


#26X, 


#2CX, 


#2DX , 


#2 EX, 


^2FX, 


#30X, 


#31X, 


#32X, 


«33X, 


#34X, 


#35X, 


#36X, 


#37X, 


?^38X, 


#39X, 


#3AX , 


#3EX, 


#3CX, 


#3CX, 


#3EX , 


#3FX, 


#40X, 


^4 IX, 


#42X, 


#43X, 


#44X, 


#45X, 


#46X, 


^47X, 


#48X , 


#49X, 


#4AX, 


#4BX, 


#4CX, 


rt^4CX, 


#4EX , 


#4FX, 


#50X, 


J^51X, 


#52X, 


#53X, 


#54X, 


#55X, 


J^56X, 


#57X, 


#58X, 


#59X, 


#5AX, 


#5EX, 


#5CX, 


#3CX, 


#5EX, 


#5FX, 


^60X, 


i^6lX, 


#62X, 


#63X, 


#64X, 


5X, 


#66X, 


#67X, 


#6SX, 


UbSX, 


#6AX, 


#6BX, 


#6CX , 


#OFX, 


#16X , 


#OCX, 


#57X, 


#OOX, 


#57X, 


#OOX, 


#67X, 


#OOX, 


#68X, 


#OCX , 


#68X, 


#ccx. 


#67X, 


#OCX, 


#68X, 


^OOX, 


#67X, 


#OOX, 


#38X, 


#OOX, 


#OEX, 


^ccx. 


#1DX, 


#OOX, 


#CCX, 


#01X, 


#02X, 


<^G3X , 


#04X , 


#05X , 


#06X, 


/^C7X , 


#08X, 


#09X, 


ft 0 A X , 


#OBX, 


#OCX, 


#ODX, 


#OEX, 


#OFX, 


#10X, 


#IIX, 


#12X, 


#13X, 


#14X, 


#15X, 


#16X , 


#17X, 


#L8X, 


#19X, 


#1AX, 


^lEX, 


#1CX, 


#10X, 


ftlEX, 


#1FX, 


UZOXi 


#21X, 


#22X, 


#22X, 


#24X, 


^25X, 


#26X, 


#27X, 


#28X, 


#29X, 


#2AX, 


#2BX, 


#2CX, 


#20X, 


#2EX, 


Ji2FX, 


#3CX, 


#31X, 


#32X, 


#33X, 


#34X, 


#35X, 


#3oX , 


#37X, 


#38X , 


H39X, 


#3AX, 


#3BX, 


#3CX, 


#3DX, 


#3EX, 


#3FX, 


#40X, 


#41X, 


#42X, 


#43X, 


#44X, 


#45X, 


#46X, 


n^iXt 


#48X, 


^49X, 


#4AX, 


#4BX, 


#4CX, 




#4EX, 


#4FX, 


#5CX, 


#51X, 


^^5ZX, 


#53X, 


#54X , 


#5 5X, 


#56X, 


H51X, 


U5BXj 


#59X, 


#5AX, 


^5BX, 


#5CX, 


^5DX, 


#5EX, 


#5FX, 


#60X, 


#6 IX, 


#62X, 


#63X, 


#64X, 


#65X, 


#66X, 


#67X, 


#68X, 


#69X, 


#6AX , 


i<f6ex. 


#6CX, 


#13X, 


#16X, 


fltOCX, 


U13X, 


i<Fl6X, 


#OOX, 


#17X, 


#oox. 


^iCX, 


#oox , 


#OOX, 


ftOlX, 


UU 2X, 


^03Xf 


^C4X, 


#05X, 


#06X, 


#07X, 


#C6X, 


#09X, 


#OAX, 


#cex. 


#OCX , 


#OCX, 


#OEX, 


#OFX , 


#1QX, 


#ilX , 


iiiZX, 


#13X, 


#14X, 


#15X, 


^L6X, 


#17X, 


?^18X, 


#19X, 


#l AX , 


#IBX, 


#1CX, 


#IDX, 


#IEX, 


#1FX, 


#2 OX, 


^2 IX, 


#22X, 


#23X, 


#24X, 


#25X, 


#2EX, 


#27X, 


#28X, 


#29X, 


??2AX, 


#2BX, 


#2CX, 


#2DX , 


fl^2EX, 


#2FX, 


^3CX, 


#3 IX, 


#32X, 


#33X, 


#34X, 


#35X, 


#36X, 


#37X, 


#3fiX, 


#39X, 


#2/iX , 


#36X, 


#3CX, 


#3CX, 


/^3£X, 


#3FX, 


#40X, 


#41X, 


#42X, 


»43X, 


i^44X, 


#45X, 


#46X, 


#47X, 


#48X, 


#49X, 


#4AX, 


#4BX, 


#4CX, 


#4DX, 


#4EX, 


#4FX, 


#50X, 


#51X, 


n5 2X, 


#53X, 


#54X, 


#55X, 


#56X, 


#57X, 


#5EX, 


#59X, 


#5AX, 


#3BX, 


#5CX, 


#5CX, 


#5EX, 


U5FXt 


#60X, 


#6 IX, 


^62X, 


#63X, 


#64X, 


#65X, 


^66X, 


#67X, 


» 66X T 


#69X , 


#6AX, 


#6BX , 


#6CX , 


#OOX , 


#OLX , 


ft02X, 


UOBXf 


#04X, 


#05X, 


#06X , 


#07X, 


#OSX, 


i^C9X, 


#OAX, 


#OBX, 


#CCX, 


#ODX, 


#OEX, 


/^OFX, 


#10X, 


#liX, 


#12X , 


#13X, 


#14X, 


#15X, 


#16X, 


#L7X, 


#18X, 


n 19X, 


#IAX, 


#IBX, 


# icx. 


#ICX, 


#IEX , 


#1FX, 


#2UX, 


#21X, 


#22X, 


#23X, 


#24X, 


#25X, 


#26X, 


§ZlXf 


#28Xr 


#29X, 


#2AX, 




#2BX, ^2CX, 
^35X» #36X, 
#3FX, #40X, 
#49X, #4AX, 
#53X, #54X, 
#5DX, #5EX, 
//67X, ^68X, 
#1DX, #00X, 
#6CX, /?00X, 
i^2EX, #00X, 
#04X, #05X, 
fi^OEX, jf^OFX, 
J5fl8X, fitl9X, 
^22X, #23X, 
J!^2CX, 35^2DX, 
ji^36X, #37X, 
^4CXf #41X, 
#4AX, #4BX, 
#34X, #55X, 
#5EX, #5FX, 
#68X, #69X, 
^03X, #04X, 
#UDX, #OEXt 
#i7X, #18X, 
#21X, #22X, 
^2BX, f?2CX, 
#35X, /^36X, 
#3FX, #40X, 
^^49X, #4AX, 
j 5^53X, j^t54X, 
U5DX, U5EX, 
ntlXt #68X, 
#04X, #05X, 
#OEX, #OFX, 
#L8X, #19X, 
ifZZXi »23X» 
^2CX, ^2DX, 
J^36X, #37X, 
#4CX, #4iX, 
J^4AX, #4BX, 
#54X, #55X, 
#5EX, /^5FX, 
/^68X, #69X, 
#05X, #06X, 
/^OFX, ^lOX, 
#i9X, #1AX, 
#23X, #24X, 
#2DX, ^2 EX, 



#2DX, #2EX, 
#37X, /^38X, 
^^IXf #42X, 
#4BX, #4CX, 
#55X, ^¥56X, 
#5FX, ?it60X, 
iff69X, ^6AX, 
i^69X, ^6 AX, 
j!|flDX, #OOX, 
#2EX, #OOX, 
#06X, #07X, 
#10Xt jf^llX, 
^iAX, #1BX, 
#24X, #25X, 
«i2EX, iiZFX, 
#38X, #39X, 
#42X, #43X, 
J^4CX, #4DX, 
#56X, ^57X, 
j^^dOX, #61X, 
#6AX, #6BX, 
#05X, //06X, 
^CFX, ?/IOX, 
jS^19X, #1AX, 
#23X, #24X, 
#2DX, #2EX, 
#37X, #38X, 
H^iXf #42X, 
//4BX, ?/4CX, 
#55X, ff56X, 
#5FX, «60X, 
#69X, ^6AX, 
#06X, #07X, 
jf|(lOX, #11X, 
J^IAX, #1BX, 
#24X, f5f25X, 
#2E>, #2FX, 
#38X, #39X, 
ff42X, #43X, 
^4CX, #4DX, 
#56X, #57X, 
i^(60X, ?!^61X, 
//6AX, #^6BX, 
#C7>, #08X, 
#11X, #12X, 
#1BX, ^ICX, 
#25>, #26X, 
nZFXf #30X, 



#2FX, #30X, 
^39X, 43AX, 
#43X, ?if44X, 
#40X, J^4EX, 
#57X, ?^58X, 
i^61X, #62X, 
^6BX, a^tcx, 
#6BX, //^6CX, 
#1CX, #OOX, 
#17X, #OOX, 
#08X, ji^09X, 
#12X, #13X, 
UlCX, HiDX, 
#26X, #27X, 
#30X, ^^31X, 
#3/iX, #3BX, 
j<)i44X, i^45X, 
#4EX, #4FX, 
#58X, iff59X, 
#62X, #63X, 
#6CX, #1FX, 
#07X, #G8X, 
ifi^liX, ^i2X, 
J^IEX, #1CX, 
#25X, #26X, 
J^2FX, #30X, 
?Si39X, #3AX, 
#43X, #44X, 
#4CX, ?1/4EX, 
#57X, #58X, 
#61X, #62X, 
#6EX, ^6CX, 
#08X, #09X, 
jf|fl2X, ^13X, 
#iCX, #10X, 
#26X, #27X, 
#3CX, #31X, 
#3/^X, #3BX, 
i¥44X, #45X, 
#4EX, #4FX, 
#58X, #59X, 
#62X, S^63X, 
#6CX, #OOX, 
#09X, #OAX, 
#L3X, #14X, 
#iCX, #iEX, 
ffZl X f ^Z3X 1 
^3lXf #32X, 



#31X, 


H3ZX, 


nzbx, 


#3CX, 


jfl45X, 


#46X, 


j^4FX, 


#50X, 


H5SX, 


#5AX, 


H63Xt 


#64X, 


iCX, 


J^^OOX, 


accx, 


#69X, 


^ICX, 


#OOX , 


if/CCX, 


aoiXj 


?5fGAX, 


it03Xf 


^1-^X, 


^L5X, 


i<ilEX, 


i<^lFX, 


UZSXi 


iV-29X, 


it ^ 2X t 


#33X , 


H3CX, 


#3DX, 


HAtXj 


//47X, 


*5CX, 


//SIX , 


^3AX, 


#5BX, 


^64X , 


#65X , 


J^CCX, 


tiO OX 1 


#G9X, 


//O AX, 


# 12X, 


//14X, 


iCX, 


//lEX, 


]^27X , 


#28X , 


#31X, 


//32X , 


^2BX, 


//3CX, 


HA5Xt 


#46X , 


j^4FX, 


j^SCX, 


ii5SX, 


?/5 AX , 


Ut3X , 


#64X , 


accx. 


//OIX, 


AX, 


#OBX , 


// lAX, 


#15X, 


UEX, 


aiFXr 


azFx , 


HZ9X , 


H32Xf 


H33Xf 


ii3CX, 


//3DX, 


#4dX, 


#47X, 


it5CXf 


J/SIX, 


n5/^x. 


#5BX, 


^d4X, 


//65X, 


?1(C1X, 


aOZXf 


^CEX, 


//OCX, 


?^1£X, 


//16X , 


nFx, 


#20X, 


^29X , 


#2AX, 


f)23X, 


#34X, 



)!^33Xi #34X, 
#3DX, //3EX, 
#47X, #4EX, 
#5IX, #52X, 
#5BX, ^5CX, 
#65X, ^66X, 
^^IDX, i^fOOX, 
#6AX, ?^63X, 
#1CX, #OCX, 
#02X, ^C3X, 
#0CX, i^^CCX, 
U16X, #17X, 
?if2CX, i¥21X, 
#2AX, #2BX, 
^34X, #35X, 
^3EX, #3FX, 
#48X, j<#49X, 
/1^52X, jf/'SBX, 
#5CX, #5CX, 
U66X, jf^67X, 
A501X, #C2X, 
U08X, UOCX, 
H^l5Xf Ul6Xj 
niFXi #2CX, 
MZ9X, nZAXf 
n33X, i¥34X, 
#3DX, ^3EX, 
?!;^47X, ?;^48X, 
#5iX, #52X, 
#5BX, #5CX, 
^fd5X, ^66X, 
i^'02X, ^G2X, 
frOCX, J^OCX, 
i/^l6X, #I7X, 
#20X, ?^21X, 
?if2AX, #2EX, 
#34X, #35X, 
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^19X, 


#1AX, 


?!^iex. 


?itlCX, 


#iDX, 


#iEX, 


J^IFX, 


?S<20X, 


^2 IX, 


U2ZX, 


^22X, 


i¥24X, 


#25X, 


#26X, 


^ 2 7X f 


#28X, 


#29X, 


#2 AX , 


#2 EX , 


nzcx. 


i^2CX, 


j^2EX, 


#2FX, 


#3CX, 


U3iXy 


#32X, 


#33X, 


#34X, 


#35X, 


#36X, 


#37X , 


#38X, 


?/39X , 


#3AX, 


#3 ex, 


#3CX, 


^3CX, 


JS/3EX, 


^3FX, 




S 4 1 X , 


#42X, 


#43X, 


i«/!44X, 


/^45X, 


»46Xt 


#47X, 


#4BX , 


#49X , 


#4AX , 


#4£X, 


)¥4 C X , 


#4DX, 


#4EX, 


?it4FX, 


#50X, 


i^51X, 


#52X , 


?^53X, 


?^54X, 




^56X, 


#57X, 


#58X, 


#59X, 


#5 AX, 


^56X, 


#5CX , 


#5CX, 


#5EX, 


^5FX, 


#6CX, 


#61X , 


H^62X9 


Ub3Xt 


#64X, 


#65X, 


#66X , 


^67X, 


6 8 X , 


^69X, 


#6-flX , 


?Sf6EX , 


U6CX, 


i^l3Xj 


U47X, 


3<^48X, 


#OOX, 


13X, 


^27X, 


^2ex, 


#00X, 


^13X, 


?^34X, 


J^35X, 


f^OOX, 


#i3X, 


?i<3FX, 


#OOX, 


^13X, 


mtx. 


#OOX, 


^l3Xi 


#16X, 


#00X, 


#17X, 


# 2 tX T 


^30X, 


#31X, 


#32X, 


U33Xj 


?i«OOX , 


?^4EX, 


#oox. 


J!^4EX, 


#OOX, 


^2EX, 


^3bX, 


i^3CX , 


^ii3DX, 


A2EX, 


Ji^OOX, 


#2EX, 


}^4CX, 


/^41X, 


^^ZXi 


#43X, 


^OOX , 


?^IEX, 


#44X , 


^45X, 


#46X, 


^OOX, 


J^12X, 


^16X, 


UOQXt 


n L3X, 


?^16X, 


#OCX, 


,V13X, 


16X , 


#OOX, 


?^13X, 


?^16X, 


#00X, 


#13X, 


//16X, 


#OOX, 


#13X, 


#16X, 


^CCX, 


#13X, 


^16X, 


#ocx, 


fltl3X, 


#16X, 


#OOX, 


#61X , 


fitOOX , 


fl^6iX, 


^CCX, 


#OOX, 


ffOlXr 


/^02X, 


#0 3X, 


#04X, 


#05X, 


#06X, 


^ 0 7 X , 


J^08X, 


UQ9X, 


Ji^OAX , 


#08X , 


#OCX, 


#00X , 


#OEX, 


/^OFX, 


#10X, 


#liX, 


#12X, 


A13X, 


?S^14X, 


tn5Xf 


^16X, 


j^^i7X, 


#18X, 


#19X, 


#1AX , 


^1 ex , 


?ncx , 


i^lCX, 


^lEX, 


s^lFX, 


nzox. 







#2 IX, 


#22X, 


#23X, 


#24X, 


#25X, 


#26X, 


#27X, 


#28X, 


#29X, 


#2AX, 


#2BX, 


#2CX, 


#2DX, 


#2EX, 


#2FX, 


#30X, 


#3iX, 


#32X, 


#33X, 


#34X, 


#35X, 


#36X, 


#37X, 


#38X, 


#39X, 


#3AX, 


#3EX, 


#3CX, 


#3CX, 


#3EX, 


?^3FX, 


#40X, 


#41X, 


#42X, 


#43X, 


#44X, 


#A5X, 


#46X, 


#47X, 


#48X, 




#4AX, 


#48X, 


#4CX , 


#4CX, 


#4EX, 


#4FX, 


#50X, 


#51X, 


#52X, 


#53X, 


#54X, 


#55X, 


#56X, 


#57X, 


#58X, 


#59X, 


#5AX, 


#5BX , 


#50X, 


#50X, 


#5 EX, 


#5FX, 


#60X, 


#61X, 


#62X, 


#63X, 


#64X, 


#65X, 


#66X, 


U67X, 


#68X, 


#69X, 


#6AX, 


#6BX, 


#6CX , 


#17X, 


#28X, 


#2CX, 


#2EX, 


#30X, 


#31X, 


#32X, 


#33X, 


#00X, 


#2EX, 


#3AX, 


#3BX, 


#30X, 


#3CX, 


rf3EX, 


#00X, 


#2 EX, 


#40X , 


#41X, 


#42X , 


#43X, 


#00X, 


#17X, 


#28X, 


■^!^2DX, 


#2EX, 


#30X, 


#31X, 


#32X , 


#33X, 


#CCX , 


#17X, 


#28X, 


#2CX, 


?1^2EX, 


#30X, 


#31X, 


#32X, 


#33X, 


#00X, 


# 1 7X , 


#28X, 


#2DX, 


#2EX, 


»3CX, 


#31X, 


#32X, 


#33X , 


#00X, 


#2EX, 


#3 AX, 


#3 BX , 


#30X, 


#3CX, 


»3EX, 


#00X, 


# 17X, 


#28X, 


#2DX, 


#2EX, 


#2CX, 


#31X, 


#32X, 


#33X, 


#00X, 


#17X, 


#28X , 


#2 OX, 


#2 EX, 


#30X , 


#31X, 


#32X, 


#33X, 


#OCX, 


?^17X, 


#28X, 


#2DX, 


#2EX , 


#30X, 


#31X, 


#32X , 


#33X, 


#00X , 


#16X, 


#5AX, 


#00X, 


# 16X, 


#00X, 


#00X, 


#01X, 


#02X, 


#03X , 


#C4X, 


#C5X, 


#06X, 


#07X, 


#C8X, 


#09X, 


#OAX, 


#06X , 


#COX, 


#ODX, 


#0EX, 


#CFX, 


#1CX, 


#1 IX, 


#12X, 


#13X, 


#14X, 


#15X, 


#UX, 


#17X, 


# I8X , 


#19X, 


#i AX, 


#1BX, 


#ICX, 


)!^1DX, 


#1EX, 


#1FX, 


#2CX, 


#21X, 


#22X, 


#23X, 


Jif24X, 


#25X, 


#26X, 


#27X , 


#20X , 


#29X , 


#2 AX, 


#2BX, 


#2 OX, 


#2CX, 


#2EX, 


#2FX, 


#30X, 


#3iX, 


#32X , 


#33X, 


#34X, 


#35X, 


#36X, 


#27X, 


#38X, 


#39X, 


#3AX, 


#3BX , 


#3CX, 


#3 DX , 


ii3EX, 


#3FX, 


#4CX, 


#41X, 


#42X, 


#43X, 


#A4X, 


#45X, 


#46X, 


#47X, 


#4fiX, 


#49X, 


#4AX, 


#4EX, 


#4CX, 


#4CX, 


#4EX, 


#4FX, 


#5CX, 


#51X, 


#52X , 


#53X, 


#54X, 


#55X, 


#56X, 


#57X, 


#58X, 


#59X, 


#5 AX, 


#56X , 


#50X, 


#5CX, 


#5EX, 


#5FX, 


HbCXt 


#61X, 


#62X, 


#63X, 


#64X , 


#65X, 


#66X , 


#67X , 


#68X, 


#69X, 


46 AX , 


#6BX, 


#6CX, 


#16X, 


#OOX, 


#17X, 


#33X, 


#3DX, 


#3EX, 


#A2X, 


i¥43X , 


#45X, 


#46X, 


#4CX , 


#4CX, 


#52X , 


#53X, 


#54X, 


#OOX, 


#03X, 


#UOX, 


#17X, 


#28X, 


#2DX, 


#2EX, 


#30X, 


#3 IX, 


# 3 2 X , 


#33X , 


#OCX, 


/!^2FX , 


#00X, 


#2£X, 


#40X, 


#41X, 


#42X, 


#43X, 


#00X, 


#29X, 


#2AX, 


#2BX, 


#00X, 


#36X, 


#37X, 


#38X, 


#39X, 


# C OX , 


#20X , 


#00X, 


#16X, 


#00X, 


#13X, 


#C0X, 


#31X, 


#32X, 


#00X) ; 










ARRAY 0147 SHORT INTEGER 


5TATELI 


5T = (#00015 


, #06 


FF5, #00045, 


#06FF5 


?/02£8S, #06FFS, 4Q20^S, 


#02055 


, #ooces, # 


00095, 


#OOCA5 


, 


#06FFS 


, #000BS, #06FFS, 


#00005 


, #06FF5, #C20ES, 


#01CES 


, 


#02105 


, #06FF5, #01CE5, 


#02105 


, #06FF5, #00105, 


#06FFS 


, 


#00115 


, #06FF5, #00125, 


#06FF5 


, #020 


25, #06FFS, 


#02115 


, 


#06FF5 


, #000C5, #06FFS, 


#06FFS 


, #06FF5, #06FFS, 


#06FFS 


, 


#06FF5 


, #06FFS, #06FF5, 


#0EFF5 


, #06FFS, #C6FF5r 


#06FF5 


, 


#06FF5 


, #06FFS, #06FF5, 


#021^5 


, #06FF5, #00235, 


#03045 


, 


#06FF5 


, #06FFS, #022C5, 


#00295 


, #06FF5, #06FF5, 


#06FFS 


, 


#06FF5 


, #06FF5, #002A5, 


#06FF5, #06FFS, #06FFS, 


# 06 F F 5 


1 


#01235 


, #06F 


FS, #012C5, 


#Q6FF5 


, #024AS, #02405, 


#00205 


, 


#06FF5 


, #06FF5, #06FF5, 


#06FF5 


, #06FF5, #06FFS, 


#06FF5 




#06FF5 


, #06FF5, #06FF5, 


#06FF5 


, #06FF5, #C6FFS, 


#06FF5 


, 


#06FF5 


, #06FFS, #06FF5, 


#06FFS 


, #06Fi"5, #06FFS, 


#06FF5 


, 




9CU 



#06FFS, #06FFS, #06FFS, #06FFS, 
#06FFS, #06FFS, #06FFS, U06ffS, 
UQ6FFS, §Q6FFS, #06FFS, j^06fFS, 
#06FFS, #06FFS, #06FFS, ^06FFS, 
#06FFS, #06FFS, #06FFS, #02CES, 
#00375, #00305, #06FFS, #00315, 
#00355, #06FF5, #06FF5, #06FFS, 
#0CCCS, #06FF5, #02085); 

CLOSE BASE; 

GLCBAL DATA SEGT3 BASE R7 ; 

ARRAY 150A SHORT IMEGER CISTATELIST 

#06FFS , 

#06FFS, #02415, #06FFS, #06FFS, 
#06FFS, #06FFS,, #06FFS, #06FFS, 
#06FFS, #06FF5, #06FFS, #06FFS, 
#06FFS, #06FFS, #022CS, #00295, 
#06FFS, #06FF5, #002AS, #OtFFS, 
#01265, #06FFS, #012CS, #06FFS, 
#06FFS, #06FFS, #06FFS, #06FFS, 
#06FFS, #06FFS, #06FFS, #06FFS, 
#06FFS, #06FFS, #06FFS, #06FFS, 
#06FFS, #06FFS, #06FFS, #06FFS, 
#06FFS, #06FFS, #06FFS, #06FFS, 
#06FFS, #06FFS, #06FFS , #06FFS, 
#06FFS, #06FFS, #06FFS, #06FFS, 
#06FFS, #06FFS, #06FFS, #02C£S, 
#00375, #00305, #06FFS, #00315, 
#00355, #06FFS, #06FFS, #06FFS, 
#00385, #01395, #06FFS, #01365, 
#013CS, #06FFS, #06FFS, #06FFS, 
#06FFS, #06FFS, #06FFS, #06FFS, 
#06FFS, #06FFS, #02145, #06FFS, 
#06FFS, #022CS, #00295, #06FFS, 
#06FFS, #002AS, #06FFS , #06FFS, 
#06FFS, #012C5, #OeFFS, #024AS, 
#06FFS, #06FFS, #06FFS, #06FFS, 
#Q6FFS, #06FFS, #06FFS, #06FFS, 
#U6FF5, #06FFS, #OCFFS, #06FFS, 
#OoFFS, #06FFS, #06FFS , #06FFS, 
#06FFS, #06FFS, #ObFFS, #06FFS, 
#06FFS, #06FFS, #06FFS, #06FFS, 
#06FFS, #06FF5, #06FFS, #002ES, 
#06FFS, #06FFS, #02CES, #02CFS, 
#00305, #06FFS, #00315, #00325, 
#06FFS, #06FFS, #u6FFS, #06FFS, 
#00405, #06FFS, #00415, #06FFS, 
#06FFS, #00455, #06FFS, #00455, 
#00455, #06FF5, #00435, #06FFS, 



#06FFS, 
#06FFS, 
#06FFS , 
#002ES , 
#02CFS, 
#0022S , 
#06FFS, 



( 

#02095 , 
#06FFS , 
#06FFS , 
#06FF5, 
#06FFS , 
#06FFS , 
#024AS, 
#06FF5 , 
#06FFS , 
#06FFS , 
#06FFS , 
#06FFS, 
#0 6 F F 5 , 
#002ES , 
#02CF5, 
#00325, 
#06FFS , 
#06FFS , 
#06FFS , 
#06FFS, 
#00235 , 
#06FF5 , 
#0 6 F F 5 , 
#02405 , 
#06FFS , 
#06FFS , 
#06FFS , 
#Q6FFS, 
#06FFS , 
#06FFS, 
UOOZFS, 
#02CC5 , 
#00325 , 
#06FF5 , 
#004 IS , 
#06FFS, 
#03005 , 



#06FFS, 
#Q6FFS, 
#06FFS, 
#C02FS, 
#02005, 
#00335 , 
#C6FFS, 



#06FFS, 
#06FFS, 
#C6FFS, 
#00235, 
#06FFS, 
#C6FFS, 
#02405, 
#06FFS, 
#C6FFS, 
#06FFS, 
#G6FFS , 
#C6FFS, 
#06 F F S , 
#C02FS, 
#02005, 
#00335 , 
#06FFS, 
#01395, 
#06FFS , 
#C6FFS, 
#03045, 
#C6FFS, 
#06FFS, 
#00205, 
#C6FF S , 
#06FFS, 
#06FFS , 
#06FFS, 
#06FFS, 
#C6FFS, 
# ObF F 5 , 
#00365 , 
#00345, 
#06FFS, 
#06FFS , 
#00435, 
#06FFS, 



#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#00365, 
#00345 , 
#06FFS, 



#02065, 
# 0 6 F FS , 
#06FFS, 
#03045, 
#06FFS , 
#06FFS, 
#002DS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#ObFFS , 
#00365 , 
#00345, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#01265, 
#06FFS, 
#06FFS, 
#0cFFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS , 
#00373, 
#00355, 
#012FS, 
#00435, 
#06FFS, 
#02265 , 







#06FFS, 
#06FFSf 
#06FFS, 
#06FFS, 
#06FFS, 
#012BS, 
#06FFS, 
#06Ff S, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
?S|t06FFS, 
#06FFS, 
#0037S, 
#0C35S, 
#0 L4DS, 
#06FFS, 
/^06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
^0 154S, 
^06FFS, 
#0C5CS, 
#0061S, 
#02925, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#02695, 
#06FF5, 
#06FFS, 
#00o2S, 
#00565, 
#06FF5, 
#06FF5, 
#06FF5, 



#00465, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5 , 
#06FF5, 
#06 FFS , 
#06FF5, 
#06FF5, 
#06FFS, 
#06FF5,. 
#00305 , 
#06FF 5, 
#004E5, 
#00465, 
#06FF5, 
#06FF5, 
#06FFS, 
#06FFS, 
#06FF5 , 
#06FF5, 
-#06FF5, 
#06FF5, 
#02705, 
#005ES, 
#00555, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#026A5, 
#06 FF5 , 
#02815, 
#06FF5, 
#06 FF 5 , 
#06FF5, 
#06FF5 , 
#06FF5, 



#06FFS, 
#06FFS, 
#06FF5, 
#02205, 
#002A5 , 
#01205 , 
#06FF5 , 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5 , 
#06FF5, 
#06FF5 , 
#06FF5 , 
#06FF5 , 
#06FF5 , 
#06FF5, 
#06FF5 , 
#06FF5 , 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5 , 
#06FF5 , 
#0-0565, 
#06FF5, 
#00605 , 
#028A5, 
#02975, 
#06FF5 , 
#06FF5 , 
#06FF5 , 
#C6FF5, 
#06FF5, 
#06FF5 , 
#06FF5, 
#02665 , 
#02675, 
#06FF5 , 
#06FF5 , 
#005F5, 
#06FF5 , 
#00505 , 
#06FFS, 
#06FF5 , 
#06FF5, 
#06FF5 , 
#06FF5 , 



#06FFS, 
#06FF5, 
#02145, 
#00295, 
#06FF5, 
#06FFS, 
#06FF5, 
#06FF5, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FF5, 
#06FF5, 
#02CE5, 
#00215, 
#06FFS, 
#022A5, 
#06FF5, 
#06FFS, 
#06FFS, 
#06FF5, 
#06FFS, 
#06FF5, 
# 0 6 F FS , 
#0269i, 
#06FF5, 
#06FFS, 
#00625, 
#00565, 
#06FFS, 
#06FF5, 
#06FF5, 
#06FF5, 
#0 6 F FS , 
#06FFS, 
#06FFS, 
#06FFS , 
#06FF 5 , 
#06FFS, 
#06FFS, 
#06FF5, 
#02795, 
#02655, 
#01535, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFSf 



#106FFS 
#06FFS 
#06FFS 
#06FFS 
#06FFS 
#024AS 
#06FFS 
#06FFS 
#06FFS 
#06FFS 
#06FFS 
#06FFS 
#002ES 
#02CFS 
#00325 
#06FFS 
#004FS 
#06FFS 
#06FF5 
#06FFS 
#06FFS 
#06FFS 
#06FFS 
#06FFS 
#026AS 
#06FFS 
#02815 
#06FFS 
#06FFS 
#06FFS 
#06FFS 
#06FFS 
#06FF5 
#06FFS 
#06FFS 
#06FFS 
#06FF5 
#06FFS 
#06FFS 
#01545 
#06FFS 
#00505 
#00615 
#02925 
#06 FFS 
#06FF5 
#06FFS 
#06FFS 



#C6FFS, 
#06FFS, 
#00235, 
#06FFS, 
#06FFS, 
#02405 , 
#C6FFS, 
#06FFS , 
#G6FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#002FS, 
#C2D0S, 
#00335, 
#06 FFS , 
#06FFS, 
#06FFS, 
#06FFS, 
#C6FFS , 
#02665, 
#02 87 5 , 
#C6FFS, 
#06FFS , 
#CG5F 5 , 
#06FFS , 
#00505 , 
#C6FFS , 
#06FFS, 
#06FFS, 
#06FFS, 
#06FF5, 
#C6FFS, 
#C6FFS , 
# OOF F 5 , 
#C6FFS , 
#06FFS t 

# C6F F 5 , 

# C6F F 5 , 
#06FFS, 
#06F F 5 , 
#02705, 
#005ES, 
#00555 , 
#06FFS, 
#C6FFS , 
#C6FFS, 
#06FFS, 



#06FFS, 
#06FFS, 
#03045, 
#06FFS, 
#06FFS, 
#00205, 
#06FFS, 
#06FFS , 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#00365, 
#00345, 
#06 F FS , 
#00515 , 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FF$ , 
#06FFS , 
#02795, 
#02855, 
#01535, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FF5, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS , 
#00565 , 
#06FFS , 
#00605, 
#028AS , 
#02975 , 
#GtFFS, 
# 06 F F 5 , 
#06FFS, 
#06FFS , 







?5<06FFS» 
#06FFS, 
#06FFS, 
Ji« 06 FFSf 
#00695, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#024AS, 
#06FFS T 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#002ES, 
#02CFS, 
#00325, 
#06FF5, 
#06FFS, 
#06FF5, 
#00235, 
#06FF5, 
#00715, 
#02ACS, 
#06FF5, 
#0cFFS, 
#06FFS, 
#06FFS, 
#06FF5, 
#06FF5, 
#002FS, 
#02005, 
#00335, 
#06FFS, 
#06FF5, 
#06FF5, 
#06FFS, 
#06FFS, 
# 06F F 5 , 
#06FFS, 
#06FFS, 
#06FF5, 
#06FFS, 
#06FF5 , 
#06FF5, 



#06FF5, 

#00645, 

#02E45, 

#00685, 

#06FF5, 

#06FF5, 

#06FF5, 

#00235, 

#06FF5, 

#06FF5, 

#024C5, 

#06FF5, 

# 06 F F 5 , 

#06FF5, 

#06FF5,' 

#06FF5, 

#06 hF 5 , 

#002F5, 

#02005, 

#00335, 

#06FF5, 

#Q6FF'S, 

#06FF5, 

#03045, 

#06FF5, 

#06FFS, 

#00205, 

#06FF5, 

#06FFS, 

#06FFS, 

#06FF5 , 

#06FF5 , 

#06FF5, 

#06FF5, 

#00365, 

#00345, 

#06FF5, 

#06FF5, 

#06FF5, 

#02205, 

#002AS, 

#01205 , 

#06FF5, 

#06FF5, 

#06FF5, 

#06FF5, 

#06FF5, 

#06FF5, 



#06FFS, 
#06FF5 , 
#02E5S, 
#06FF5, 
#00t.A5 , 
#06FF5 , 
#06FF5 , 
#03045 , 
#06FF5, 
#06FF5, 
#00205, 
#06FF5 , 
#06FF5, 
#06FF5 , 
#0cFF5, 
#06FFS , 
. #06FF5, 
#06FF5, 
#00365, 
#00345 , 
#06FF5, 
#0cFF5 , 
#06FF5, 
#06FFS , 
#06FF5, 
#01265 , 
#C6FF5 , 
#06FFS , 
#0oFFS , 
#06FFS , 
#06FFS, 
#06FF5, 
#06FF5, 
#06FF5 , 
#00375, 
#00335, 
#06FFS , 
#06FF5 , 
#02145 , 
#00295, 
#06FFS, 
#06FFS , 
#06FFS, 
#06FF5, 
#06FF5 , 
#06FFS , 
#06FF5, 
#06FF5 , 



#06FFS, 
#02845, 
#02E6S, 
#00465, 
#06FFS, 
#06FF5, 
#06FF5, 
#06FFS, 
#06FF5, 
#06FFS, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FFS, 
#06FF5, 
#06FF5, 
#00375, 
#00355, 
#01665, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FFS, 
#06FF5, 
#0 6 F FS t 
#06FF5, 
#06FFS, 
#06FF5, 
#06FF5, 
#06FF5, 
#00305, 
#06FF5, 
#0o FF5 , 
#06FF5, 
#06FFS, 
#06FF5, 
#06FF5, 
#024A5, 
#06FF5, 
#06FFS, 
#06FF5, 
#06FF5, 
#06FFS, 
#06FFS, 



#00465, 
#02E5S , 
#02E75 , 
#06FF5, 
#00515, 
#06FFS , 
#06FF5, 
#06FF5 , 
#06FF5, 
#06FFS, 
#06FF5 , 
#06FF5 , 
#0 6 F FS , 
#Q6FFS , 
#06FFS, 
#06FFS , 
#06FFS, 
#06FFS , 
#00305 , 
#06FFS , 
#06FFS, 
#06FF5 , 
#06FFS, 
#02205 , 
#002A5 , 
#01205 , 
#06FFS , 
#06FF5, 
#06FFS , 
#06FFS , 
#06FF5, 
#06FF5 , 
#06FF5, 
#06FFS , 
#06FFS , 
#06FFS , 
#06FFS , 
#06FF5 , 
#00235 , 
#06FFS , 
#06FF5 , 
#02405 , 
#06FFS , 
#06FFS , 
#06FFS , 
#06FF5 , 
#06FF5, 
#06FFS , 



#C6FFS, 
#02E6S, 
#06FFS, 
#00465, 
#06FFS , 
#06FFS, 

# C6F F 5 , 
#02205, 
#C6FF 5 , 
#06FFS, 
#06FFS, 
#C6FFS, 
#06F FS , 
#06FFS, 

# C6FF 5 , 
#06FFS, 

# Ct)F F 5 T 
#0oFFS, 
#06FFS , 
#C6FFS, 
#0oFFS, 

# C6FFS , 
#06FFS, 
#00295, 
#C6FFS, 
#U6F FS , 
#06FFS, 
#02695, 
#G6FFS , 
#06FFS, 
#C6FFS, 
#06FFS, 
#06FFS, 
#02CES, 
#00315, 
#C6FFS, 
#06FFS, 
#06FFS, 
#03045, 
#06FFS , 
#C6FFS, 
#00205, 
#06FFS, 
#C6FFS, 
#06FFS, 
#C6FFS, 
# 06F F 5 , 
#06FFS , 



#00485, 
#02E7S, 
#00675 , 
#06FFS, 
#06FFS, 
#06FFS, 

# 06 F F 5 , 
#06FFS , 
#06FFS, 
#06FFS, 
#06FFS, 
'#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#02CES, 
#00315, 
#06FFS , 
#06FFS , 
1 *^ 06 FFS , 
#06FFS , 
#06FFS, 

# 06 F F 5 , 
#024AS, 
#06FFS, 
#026AS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#002ES, 
#02CFS, 
#00325, 
#C6FFS, 

# 0 6 F F 5 , 

# 0 c F F 5 , 

# C 6 F F 5 » 
#06FFS, 
#01265, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
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35f06FFS, 

/^06FFS, 

#0C30S, 

/^06FFS, 

#06FFS, 

#06FFS, 

#06FFS, 

#06FFS, 

/S^OoFF'5, 

#024ASf 

#06FFS» 

#06FFS, 

# 0 6 FF S * 
#06FFS* 
^tObFFS, 
#06FFS, 
J5f002ES, 
#02CFS, 
#00225, 
#06FFS, 
#06FFS, 

# 06 F F S , 
#06FFS, 
#02665, 
#02875, 
#06FF5, 
#06FF5, 
#005F5, 
#007E5, 
#00505, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#00615, 
#02655, 
#06FF5, 
#00405, 
#00895, 
#a2855, 
#02645, 
#06FF5 , 
#06FF5, 
#00235, 
#06FF5, 
#06FFS, 



#06FFS 

#06FF5 

#06FF5 

#06FF5 

#06FF5 

#G6FF5 

#00235 

#06FF5 

#06'FFS 

#02405 

#06FF5 

#G6FF5 

#06FF5 

#06FF5 

#06FF5 

#06FF5 

#002F5 

#02005 

#00335 

#06FF5 

#06FF5 

#06FF5 

#06FF5 

#06FF5 

#06FF5 

#06FF5 

#00815 

#06FF5 

#02795 

#02855 

#01535 

#06FF5 

#06FF5 

#06FF5 

#06FF5 

#06FFS 

#028AS 

#06FF5 

#00405 

#06FF5 

#008A5 

#00615 

#02655 

#06FF5 

#06FF5 

#03045 

#06FF5 

#06FF5 



#06FFS, 
#02CES, 
#00315 , 
#06FF5, 
#06FF5, 
#06FF5, 
#03045, 
#06FF5 , 
#06FFS, 
#00205 , 
#06FF5 , 
#06FF5 , 
#06FF5, 
#06FF5, 
#06FF5 , 
#06FF5, 
#06FF5, 
#00365 , 
#00345, 
#06FF5 , 
#06FF5 , 
#06FF5, 
#06FF5 , 
#06FF5 , 
#06FF5, 
#06FF5 , 
#01545 , 
#06FF5 , 
#00505 , 
#00615, 
#02925, 
#06FF5, 
#06FF5, 
#06FF5 , 
#06FF5, 
#02665 , 
#00625 , 
#00465, 
#06FF5, 
#00405 , 
#C6FF5, 
#028A5 , 
#06FF5 , 
#06FF5 , 
#06FF 5 , 
#06FF5, 
#06FF5, 
#06FF5, 



#002ES, 
#02CFS, 
#00325, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FFS, 
#06FF5, 
#0 1265, 
#06FF5 , 
#06FF5, 
#06FF5, 
#06 F FS , 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#00375, 
#00355, 
#021A5, 
#0 6 F F 5 , 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#00805, 
#06FFS, 
#06FF5, 
#02705, 
#0C5ES, 
#00555, 
#02635, 
#06FF5, 
#06FF5, 
#06FF5, 
#0C5FS, 
#02975, 
#06FF5, 
#00465, 
#06FFS, 
#02665, 
#00625, 
#02285, 
#06FF5, 
#06FFS, 
#0cFF5, 
#0 6 F F5 , 
#06FF5, 



#002FS 
#02005 
#00335 
#06FF5 
#06FFS 
#06FFS 
#06FF5 
#06FF5 
#06FFS 
#06FF5 
#06FF5 
#06FF5 
#06FF5 
#06FF5 
#06FFS 
#06FF5 
#06FF5 
#00305 
#06FF5 
#06FF5 
#06FF5 
#06FF5 
#06FF5 
#06FFS 
#06FFS 
#0 6 F F 5 
#00565 
#06FFS 
#00605 
#026A5 
#02975 
#02645 
#06FF5 
#06FF5 
#06FF5 
#02705 
#00565 
#00405 
#06FF5 
#00405 
#005FS 
#02975 
#06FFS 
#06FFS 
#06FF5 
#02205 
#06FF5 
#06FF5 



#06FFS, 
#00365, 
#00345, 
#C6FF5, 
#06FF5, 
#C6FF5, 
#02-205, 
#002AS, 
#01205, 
#06FFS , 
#06FFS , 
#06FF5, 
#06FFS, 

# C6F F 5 , 

# C6F F 5 , 
#06FF5, 

# C6F F S , 
#C6FFS, 
#06FFS , 
#C6FF5, 
#06FFS, 
#06FF5, 
#06FF5, 
#06PF5 , 
#06FFS, 
#06FF5, 
#02695, 
#06FFS, 
#06FF5, 
#00625, 
#00565 , 
#02655 , 
#06FF5, 
#C6FFS, 
#06FFS^ 
#00605, 
#02635, 
#06FFS, 
#00405, 
#06FF5 , 
#02705, 
#00565, 
#0 6F F S , 
#C6FFS, 
#06FFS, 
#06FFS, 
#C6FF5, 
#06FFS, 



#06FFS, 
#00375, 
#00355, 
#06FF5, 
#06FFS, 
#02145, 
#00295, 
#06FF5, 
#06FF5, 
#C6FFS, 
#0eFF5, 
#06FF5, 
#06FFS, 
#0 6 F F S , 
#06FFS, 
#06FF5 , 
#02CE5, 
#00215, 
#06FFS, 
#C6FF5, 
#06FFS , 
#G6FF5, 
#0cFF5, 
#06FFS , 
#06FF5, 
#06FF5, 
#026 A5 , 
#06FF5, 
#02815, 
#06FFS, 
#06FF5, 
#06FFS , 
#06FFS, 
#C6FF5, 
#06FFS, 
#02855, 
#02645 , 
#00465, 
#06FF5, 
#01885, 
#00605, 
#02635, 
#C6FF5, 
#06FF5, 
#06FF5, 
#06FF5 , 
#06FF5, 
#024A5, 
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#024CS, #002DSt #06FFS, #06FFS, #06FFS, ^06FFS, 
#06FFS, #06FFS, #06FFS, #06FFS, #06PFS, f¥06FFS, 
#06FFS, #06FFS, #C6FFS, #06FFS, #06FFS, ^06FFS, 
#06FFS, #06FFS, ^06FFS, ji!06FFS, #06FFS^ ?i!C6FFSf 
#06FFS, #06FFS, #06FFS, yii^OdFFS , #06F FS , ^^/06FFS, 
#06FFS, #06FFS, ^06FFS, #06FFSf #06FFS, #C6FFS, 
U06FFS, #06FFS, #OoFFS, i¥06FFS, ^06FFS, ^06FFS, 
#0C2FS, i^?06FFS, ^V06FFS, #C6FFSf #06FFS, #02CESt 
#02U0S, U0036S, #0037Sf j^OOjCS , * ^06FF:i , i<>'CC31Sr 
^Q03SS, ?^0034Sf ?if0035S, ^06FFSt f^Q6FFSf ^C6FFS, 
#06FFS, #06FFS, ^^COABS, #02635, #026^5, #02655, 
#02E45, #02E55, #02E65, #02E75, #06FFS, #02075, 
#00925, #00915, #06FF5, #00935, #06FF5, #026ES, 
#06FF5, #06FF5,, #06FF5, #06FFS, #C6FFS, #06FFS, 
#06FF5, #06FF5, #06FFS, #06FF5, #06FF5, #06FFS, 
#06FF5, #06FF5, #06FFS, #06FFS, #06FFS, #C6FFS, 
#06FF5, #0bFF5, #06FF5, #02665, #06FF5, #C6FFS, 
#0oFF5, #06FF5, #06FFS, #02875, #06FFS, #06FFS, 
#06FF5, #06FF5, #06FF5, #06FF5, #06FFS, #C6FF5, 
#06FF5, #06FF5, #06FF5, #06FF5, #06FF5, #01545, 
#00535, #02695, #026A5, #005F5, #06FFS, #06FF5, 
#06FF5, #06FF5, #06FF5, #06FF5, #02795, #CC5CS, 
#00605, #06FFS, #02815, #00505, #02855, #00615, 
#028A5, #00625, #06FFS, #06FFS, #06FF5, #02925, 
#02975, #00565, #06FFS, #06FFS, #06FF5, #C6FF5, 
#06FF5, #06FF5, #06FF5, #06FF5, #06FF5, #06FFS, 
#06FF5, #06FF5, #06FF5, #06FFS, #06FFS, #06FFS, 
#06FFS, #06FF5, #06FF5, #06FF5, #06FFS, #06FFS, 
#06FF5, #06FF5, #06FFS, #06FF5, #06FF5, #06FF5, 
#06FF5, #06FF5, #06FF5, #06FF5, #06FFS, #06FF5, 
#06FF5, #06FF5, #06FFS, #06FF5, #06FFS, #06FFS, 
#06FF5, #06FF5, #06FF5, #C6FFS, #06FF5, #06FFS, 
#02665, #06FF5, #06FF5, #06FF5, #06FF5, #06FFS, 
#02875, #06FF5, #06FFS , #06FF5, #06FF5, #06FFS, 
#06FF5, #06FF5); 

CLOSE BASE; 

GLOBAL data SEGT4 BASE R2; 

ARRAY 1272 SHORT INTEGER C2STATELIST = ( 

#06FFS, #00805, #06FFS, #06FFS, 
#06FFS, #00815, #01545, #06FFS, #005BS , #02695, 
#005FS, #06FFS, #06FFS, #06FFS, #06FFS, #C6FFS, 
#0C7ES, #02795, #005CS, #02705, #00605, #06FFS, 
#00505, #02855, #00615 , #&C5E5, #028/^5, #00625, 
#06FFS, #01535, #02925, #00555, #02975, #CC56S, 
#0oFFS, #06FFS, #06FFS, #06FFS, #06FFS, #06FFS, 
#06FFS, #06FFS, #Q6FFS, #06FFS, #06FFS, #C6FFS, 
#06FFS, #06FF5, #06FFS, #06FFS, #06FFS, #C6FFS, 
#06FFS, #06FFS, #06FFS, #06FFS, #06FFS, #06FFS, 



#06FFS, 

#06FFS, 

#06FFS, 

#06FFS, 

#06FFS, 

#06FFS , 

#002ES, 

#02CFS , ■ 

#00325, 

#06FFS, 

#03005, 

#06FF 5 , 

#028FS , 

#06FFS, 

#06FFS, 

#06FFS , 

#06FFS, 

# 0 6 F F 5 f 
#06FFS, 
#06FFS, 
#06FFS , 
#02705, 
#00565, 
#00555, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#0 6 F FS , 
#C6FFS, 
#06FFS, 



#06FFS, 

#026AS, 

#06FFS, 

#02815, 

#06FFS, 

#06FF5, 

#06FFS, 

#06FFS, 

#06FFS, 

#06FFS, 










#06FFS, 
#06FFSf 
^029ES, 
#03265, 
#01885, 
#0 6FF5 , 
#02655, 
#02645, 
#02645, 
#02095, 
#02855, 
#030CS, 
#06FFS, 
#0 6 F F5 , 
#06FFS, 
#022C5, 
#002AS, 
#012CS, 
#06FF5, 
#06FFS, 
#06FFS, 
#06FFS , 
#06FF5, 
#06FF5, 
#06FF5, 
# 0 fc F F S , 
#06FF5, 
#06 F FS , 
#06FF5 , 
#06FFS, 
#00235, 
#06FFS, 
#06FF5, 
#024CS, 
#06FF5, 
#06FFS, 
# 06FF 5 , 
#06FFS, 
#06FFS, 
#06FFS, 
#002FS, 
#02005, 
#00335, 
#06FFS, 
#06FF5, 
#06FF5, 
#06FF5, 
#02205, 



#06FFS, 

#02905, 

#03255, 

#06FF5 , 

#06FF5, 

#02635, 

#06FF5, 

#02655, 

#02655, 

#06FF5, 

#00615, 

#02645, 

#06FF5, 

#06FF5,. 

#06FF5 , 

#00295, 

#06FFS, 

#06FF5 , 

#06FF5, 

#06FF5, 

#06FF5, 

#06FF5, 

#06FF5 , 

#06FF5, 

#06FF5, 

#02065, 

#00315, 

#06FF5 , 

#06FF5, 

#^6FF5, 

#03045, 

#06FF5, 

#06FF5, 

#00205, 

#06FFS, 

#06FF5, 

#06FF 5 , 

#06FF5, 

#06FF5 , 

#06FF5, 

#06FF5, 

#00365, 

#00345, 

#06FF5 , 

#06FF5, 

#06FF5, 

#06FF5, 

#00295, 



#01885, 
#02965, 
#03265, 
#02905, 
#01385 , 
#02645, 
#02635 , 
#06FFS , 
#02645, 
#02065 , 
#06FF5, 
#02655, 
#G6FFS , 
#0oFF5, 
#06FF5 , 
#C6FFS , 
#06FF5, 
#024AS , 
#06FF5, 
#06FFS , 
#06FFS , 
#06FFS, 
#06FFS, 
#06FFS, 
#00265, 
#02CFS , 
#00325 , 
#06FF5 , 
#06FF5 , 
#06FF5, 
#06FF5 , 
#C6FFS , 
#01285, 
#0oFF5 , 
#06FF5, 
#06FFS , 
#06F F 5 , 
#06FF5, 
#06FF5 , 
#06FF5 , 
#06FF5, 
#00375 , 
#00355, 
#00715 , 
#06FF5 , 
#06FFS, 
#06FF5 , 
#06FF5, 



#06FF5, 
#03255, 
#06FF5, 
#02965, 
#06FF5, 
#02655, 
#02645, 
#02865, 
#0265$, 
#u6FF5 , 
#00465, 
#02665, 
#06FF5, 
#0cFF5, 
#00235, 
7#06FFS, 
#06FF5, 
#02405, 
#06FF5, 
#06FF5, 
#0cFF5, 
#06FFS, 
#0bFF5, 
#06FFS, 
#002FS, 
#02005, 
#00335, 
#06FFS, 
#06FFS , 
#C6FFS, 
#06FFS, 
#C6FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FF5, 
#06FF5, 
#06FFS, 
#00305, 
# 0 6F F S , 
#02695, 
#06FFS, 
#06FFS, 
#00235, 
#06FFS, 



#02635, 

#03265 

#02905 

#02255 . 

#01885 . 

#06FF5 

#02655, 

#028FS 

#026tS 

#02355 , 

#02635 

#02675 , 

#06FFS • 

# 06F F 5 ' 

#03045 , 

#06 F F 5 

#06FFS 

#00205 , 

#06FFS 

#06FFS. 

#06FFS 

#06FFS 

#06FFS , 

#06FFS 

#06FFS 

#00365 ■ 

#00345 

#06FF5, 

#06FFS , 

#06FF5 

#022CS . 

#002AS 

#01205 

#06FF5 

#06FF5 

#06FF5, 

#06FF5 , 

#06FF5 . 

#06FF5 , 

#06FF5 

#0 6F F 5 

#06 F F 5 , 

#06FFS 

#026AS, 

#06FF5, 

#06FFS . 

#03045 , 

#06FF5 . 



#C2B4S, 
#06FFS, 
#C29ES, 
#03265, 
#06FF5 , 
#02635, 
#06FFS , 
#06 F F 5 , 
#02675, 
#00615, 
#02645, 
#C6FFS, 
#06FFS, 

# Ct)F F 5 , 
#06FFS , 
#06F FS , 
#01265 , 
#06FFS , 
#C6FFS , 
#C6FFS, 

# 05 F F 5 , 
#C6FF 5, 
#06FFS, 
#06FFS, 
#C6FFS , 
#00375, 
#00355 , 
#C6FFS, 
#06FFS, 
#G6FFS, 
#00295, 
#06FFS , 
#C6FFS , 
#06FFS, 
#06FFS , 
#06FFS, 
#06FFS, 
#CoFFS, 
#06FFS , 
#06FFS, 
#02065, 
#00315, 
#C6FFS , 
#06FFS, 
#06FFS, 
#C6FFS, 
#06FFS, 
#C6FFS, 



#0265:5, 
#029DS, 
#03255 , 
#06FF5, 
#01885, 
#02 64 5 , 
#02635 , 
#02635, 
#06FFS, 
#06FFS, 
#02655, 
#02065, 

# 0 6 F F 5 , 
#06FFS , 
#06FFS, 
#06FFS , 
#06FFS, 
#06FFS, 
#06FFS , 
#06FFS, 
#06FFS, 

# 0 6 F F 5 , 
#06FFS, 
#06FFS, 
#06FFS, 
#00205, 
#06FFS , 
#06FFS, 
#06FFS, 
#06FFS , 
#06FFS, 
#06FFS , 
#024AS, 
#06FF5, 
#06FFS, 

# 06FF 5 , 
#06FFS, 
#C6FFS, 
#06FFS, 
#00265, 
#02CFS, 
#00325, 
#Q6FFS, 
#02405, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 




S17U 



ii^002ASt 
#012CS, 
#06FFS, 
#06FFS, 
#06FFS, 
t^O 6 F FS » 
#06FFSt 
frOcFF Sf 
#06FFS, 
j^06FFS, 
^06FFS, 
fr06 FfS » 
^ C23E S t 
#U259S, 
#029DS, 
^UtFFS, 
#0275Sf 

# Ooh h S » 
#06FFSf 
#029DS, 
#OC5BS, 
#005BS, 
#02B0S, 
/|t008AS, 
#06FFS, 
jSfOoFFS, 
j(^06FFSt 
#06FFS, 
#C6FFS, 
frOoFFS, 

# 06FF S » 
#02695, 
#06FFS, 
#06FFS, 

# 0062 S ♦ 
#00565, 
#02B5S, 
Jb06FF5, 
#06FFS, 
#06FF5, 
#02CC5, 
#02685, 
#00915, 
#02695, 
#0CB3S, 
#00805, 

# 0 6FF 5 , 
#06FF5, 



#06FFS 
#06FFS 
#06FF5 
#02695 
#06FF5 
#06FF5 
#06FF5 
#06FF5 
#06FF5 
#02CE5 
#00315 
#06FF5 
#06FFS 
#06FF5 
#029E5 
#02505 
#02765 
#00B15 
#00625 
#029E5 
#02695 
#02695 
#00655 
#06FF5 
#06FF5 
#06FF5 
#06FF5 
#02055 
#06FFS 
#06FF5 
#06FF5 
#026AS 
#06FF5 
#02815 
#06FF5 
#06FF5 
#06FF5 
#06F F 5 
#06FF5 
#06FF5 
#06FF5 
#00655 
#06FF5 
#026A5 
#00565 
#00815 
#06FF5 
#06FF5 



#06FFS, 
#024A5 , 
#06FF5, 
#026AS , 
#06FF5 , 
#06FF5, 
#06FF5 , 
#Q6FF5, 
#002E5, 
#020F5 , 
#00325, 
#06FF5, 
#01305 , 
,#U26FS, 
#03255 , 
#C25D5, 
#06FF5 , 
#06FF5 , 
#02795, 
#03255 , 
#026A5 , 
#026A5, 
#06FF5 , 
#03265, 
#06FF5, 
#C6FF 5 , 
#06FF5, 
#02665 , 
#02875 , 
#C6FF5, 
#0oFF5 , 
#005F5 , 
#007ES , 
#00505 , 

# C 6F F 5 , 
#06FF5 , 

# 0 6F F 5 , 
#C6FF5, 
#0oFF5 , 
#C6FF5, 
#00645 , 
#0oFF5 , 
#02665, 
#005F5 , 
#02695 , 
#00635, 
#06FF5 , 

# 06F F 5 , 



#00715 
#02405 
#06FFS 
#06FFS 
#06FF5 
#06FF5 
#06FF5 
#06FF5 
#002F5 
#02005 
#00335 
#06FF5 
#06FFS 
#02705 
#03265 
#025ES 
#02905 
#02905 
#00505 
#03265 
#0C5F5 
#0C5FS 
#02665 
#0C8A5 
#06FF5 
#06FF5 
#06FFS 
#06FF5 
#06FFS 
#06FF5 
#00815 
#06FF5 
#02795 
#u2855 
#0 1525 
#06FF5 
#06FF5 
#0 tFt-£ 
#06FF5 
#06FF5 
#0tFF5 
#00605 
#00805 
#06FF5 
#026AS 
#00565 
#06FFS 
#06FFS 



#06FFS, 
#00205, 
#06FFS , 
#06FF5 , 
#06FF5 , 
#06FFS, 
#06FF5 , 
#06FFS , 
#06FF5, 
#00365 , 
#003AS , 
#06FFS, 
#02495 , 
#06FFS , 
#06FF5 , 
#Q6FFS , 
#029E5, 
#029E5, 
#027CS , 
#06FFS, 
#06FFS , 
#06FF5 , 
#06FF5 , 
#06FF5 , 
#06FFS, 
#U6FF5, 
#06FF5 , 
#06FFS , 
#06FFS , 
#06FFS, 
#015^5 , 
#06FFS , 
#00505 , 
#00615 , 
#02923 , 
#06FF5 , 
#06FFS , 
#06FF S , 
#06 F F 5 , 
#02095 , 
#02A9S, 
#06FF5 , 
#008 IS , 
#02665, 
#0 05 F 5 , 
#02695 , 
#06FF5 , 
#06FF5 , 



#01265, 
#06FF5, 
#06FFS, 
#06FF5, 
#06FF5 , 
#C6FF5, 
#06FF5, 
#06FF5 , 
#C6FFS, 
#00375, 
#00355, 
#02305, 
#06FFS , 
#00AES, 
#028E5, 
#02735 , 
#03255, 
#03255, 
#00605, 
#02665, 
#02665 , 
#00645, 
#03295, 
#00665 , 
#C6FF5, 
#06FF5, 
#C6FF5, 
#C6FFS, 
#06FF5 , 
#00805, 
#06FF5, 
#06FF5, 
#02705, 
#005E5, 
#00555 , 
#02635, 
#06 F F5 , 
#C6FF5, 

# 0 oF P 5 , 
#00465 , 
#CCB5S, 
#00645, 
#00035 , 
#00805, 
#06FF5 , 
#026A5, 

# OoF F5 , 
#06FF5, 



#06FFS, 
#06FFS, 
#06FF5, 
#06FF5, 
#06 F F5 , 
#06FFS, 

# 0 c F F S , 
#06FFS, 
#06FF5, 
#00305, 
#06FF5 , 
#06FF5, 
r?02585 , 
#C6FFS , 
#0 2 £ FS , 
#02745, 
#03265, 
#03265 , 
#06FF5, 
#00635 , 
#00635 , 
#C6FFS, 
#00895, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#06FF5, 
#00565, 
#06FF5, 
#00605, 
#028A5, 
#02975, 
#026.45, 
#06 F F5 , 
#06FFS, 

# 0 6 F F 5 , 

# 06 F F 5 , 
#06FFS, 
#06FF5, 
#00565, 
#00815 , 
#02665 , 
#005F5, 
#06 F F 5 , 
#06FF5, 







#06Ff=Sf 
?S^ 06 FF$, 
#06FFS, 
#06FFS, 
#06FFS, 
?^005BS, 
#06FFS, 
#00605, 
#028AS, 
#02975, 
#06FF5, 
#06FF5, 
#06FF5, 
#0 oF FS , 
#028F5, 
#026F5, 
#03295, 
#00585, 
#02A25, 
#06FFS, 
#02875, 
#06FF5, 
#02895 , 
#00055, 
#06 FF5 , 
# 06FF 5 , 
#06FF5, 
#00235, 
#06FF5, 
#06FFS, 
#02905, 
#06FF5, 
#06FFS, 
#06FF5, 
#06FFS, 
#06FF5, 
#06FFS, 
#002FS, 
#02005, 
#00335, 
#06FFS , 
#02695, 
#00505, 
#02855, 
#00565, 
#008 IS, 
#02685, 
#u05FS, 



#06FFS, 

#06FFS, 

#06FFS, 

#06FFS , 

#06FFS, 

#02695, 

#06FFS, 

#06FFS, 

#00625, 

#00565, 

#06FFS, 

#06FFS , 

#06FFS, 

#06FFS,. 

#06FFS , 

#02705, 

#06FFS, 

#0z695, 

#06 F F 5 , 

#00BfcS, 

#005ES, 

#02705, 

#03295, 

#06FFS, 

#02005, 

#Q6FF 5 , 

#06FFS, 

#03045, 

#06FF5, 

#06FFS, 

#00205, 

#06FFS, 

#06FFS, 

#06FFS, 

#06FFS, 

#06FFS , 

#06FFS, 

#06FFS, 

#00365, 

#00345, 

#06FFS, 

#02oAS, 

#027DS, 

#00615, 

#02695, 

#00835, 

#00805, 

#06FFS, 



#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#C6FF5, 
#026AS, 
#06FFS , 
#028LS , 
#06FFS , 
#06FFS , 
#C6FFS, 
#06FFS, 
#06FFS , 
#06FFS, 
#03205 , 
# 0 cF F 5 , 
#02985 , 
#026AS , 
#00825, 
#02815 , 
#C23AS , 
#03295, 
#06FFS , 
#02665 , 
#06FFS , 
#06FFS , 
#06FFS , 
#06FFS, 
#C6FFS , 
#0 12BS, 
#06FFS , 
#06FFS , 
#06F FS , 
#06F F 5 , 
#C6FFS , 
#06FFS , 
#C6FFS , 
#CbFFS, 
#00375, 
#00355, 
#02665 , 
#005FS , 
#00605 , 
#06FFS , 
#026A5 , 
#U05bS , 
#00815, 
#00625, 



#06FFS, 
#02665, 
#02875, 
#06FFS, 
#06FFS, 
#0G5FS, 
#06FFS, 
#00505, 
#06FFS, 
#0 6 F FS , 
#06FFS, 
#06FFS, 
#06FFS, 
#0cFFS, 
#02585 , 
#02635 , 
#00B5S, 
#005FS, 
f^0279S, 
#00505, 
#00625, 
^6FFS, 
#02605, 
#00655, 
#02005, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#0 6 F FS , 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#00305, 
#06FF5, 
#00805, 
#06FFS, 
#06FFS, 
#02665, 
#0C5FS, 
#02695, 
#00635, 
#007ES, 



#06FFS, 

#06FFS 

#06FFS 

#06FFS. 

#06FFS 

#06FFS 

#02795 

#02855 

#01535. 

#06FFS 

#06FFS 

#06FFS. 

#06FFS 

#06FFS 

#02595 

#00AES 

#06FFS 

#06FFS 

#00505 

#02855 

#U6FFS 

#02895 

#00655 

#06FFS 

#06FFS. 

#06FFS 

#06FFS 

#02205, 

#002/iS 

#01205 

#C6FFS 

#06FFS 

#06FFS. 

#06FFS . 

#06FF5 

#06FFS 

#06FFS 

#06FFS 

#06rFS . 

#06FFS 

#008 IS. 

#00625 

#00BES 

#00805. 

#06FF5 

# 0 2 6 A S 

#00565 

#02795 



#C6FFS, 
#06FFS, 
#C6FFS, 
#06FFS , 
#01545, 
#06FFS, 
#00505, 
#00615 , 
#02925, 
#06FFS, 
#C6FFS, 
#0<dFFS, 
#06FFS , 
#02935 , 
#06F FS , 
#C6FF§ , 
#02665, 
#02A1S , 
#C27CS, 
#00615, 
#0263 5 , 
#05295, 
#06FFS , 
#02865, 
#06FFS, 
#06FFS, 
#02145, 
#00295, 
#06FFS , 
#C6FFS, 
#06FFS, 
#06FFS, 
#C6FFS, 
#C6FFS, 
#C6FFS, 
# C6 F F S , 
#C6FFS , 
#C20ES, 
#00315, 
#06FFS , 
#00635, 
#007ES, 
#02815, 
#00815, 
#02665 , 
#C05FS, 
#02695, 
#00505, 



#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS , 
#06FFS, 
#027CS, 
#0C5ES, 
#00555, 
#06FFS, 
#C6FFS, 
#06FFS , 
#06FFS, 
#028ES, 
#02765, 
#02955 , 
#00635, 
#Q6FFS, 
#00605 , 
# 0 6 F F 5 , 
#03295 , 
#06FFS, 
#027ES, 
#00655, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#024AS , 
#C6FFS, 
#06FFS , 
#C6FFS, 
#06FFS, 
#06FFS, 
#06FFS, 
#002ES, 
#020FS, 
#00325, 
#06FFS, 
#00565, 
#02795, 
#0G5CS, 
#00635, 
#00805, 
#06FFS, 
#02 6AS , 
#027CS, 




^00605, #06FFS, flS0266S , #008CS, #0081Sf #C0B3S, #0C5BS, 

#0269S, ^026ASr i^00f?FSt #06FFS, #026eSt #00805, #00815, 

#00635, #00565, #02695, #026AS, #005F5, #06FF5, #02685, 

#00805, #00815, #00635, #00585, #02695, #026AS, #005F5, 

#06FFS, #03265, #CC8A5, #06FFS, #00865, #06FF5, #06FF5, 

#06FF5, #06FF5, #06FF5, #06FFS, #06FFS, #C6FF5, #C6FF5, 

#06FF5, #06FFS, #06FF5 , #0faFFS, #06FF5, #06FFS, #06FF5, 

#06FF5, #06FFS, #06FFS, #06FFS, #06FF5, #CbFF5, #06FFS, 

#06FF5, #02685, #06FF5, #06FF5, #06FFS, #06FFS, #06FFS, 

#06FF5, #02875, #06FF5, #06FFS, #06FF5, #06FF5, #06FF5, 

#06FF5, #06FF5, #06FF5, #06FF5, #00cC5, #C6FF5, #06FF5, 

#06FF5, #06FFS, #00815, #01545, #06FFS, #C05BS, #02695, 

#026A5, #005FS, #C6FFS, #06FFS, #06FF5, #06FFS, #06FFS, 

#06FFS, #00785,, #02795, #0C5C5, #02705 , #C06CS, #06FFS, 

#02815, #00505, #02855, #00615, #00585, #028AS, #00625, 

#06FF5, #06FF5, #01535, #02925, #00555, #02975, #00565, 

#06FF5, #06FFS, #06FFS, #06FFS, #02635, #02845, #C2B5S, 

#06FF5, #06FF5, #06FF5, #06FF5, #06FF5, #06FF5, #06FF5, 

#06FF5, #06FF5, #C6FF5, #06FF5, #06FFS, #06FF5, #06FF5, 

#06FF5, #06FF5, #06FF5, #06FF5, #06FFS, #06FF5, #06FF5, 

#06FFS, #06FF5, #06FFS, #00885, #06FFS, #02685, #005FS, 

#02705, #00605, #02855, #00615, #028AS, #00625, #02975, 

#00565, #02835, #02845, #02855, #06FF5, #02005, #06FF5, 

#02685, #00805, #00815, #00835, #00585, #02695, #026A5, 

#005F5, #06FFS, #00045, #06FF5, #00885, #02815, #00505, 

#02855, #00615, #06FFS, #02505, #02505, #02585, #06FF5, 

#02735, #02745, #02755, #02765, #06FFS, #00BIS, #06FFS, 

#00865, #06FFS, #02695, #06FF5, #02695, #C26A5, #C6FFS); 



COMMENT TH8 OPDA HA5 0232 R80UCE STATE5; 



ARRAV 0233 BYTE NUMTGPCP 


= (#00X 


, #02X 


, #0 2X 


, #01X 


, #00X, #C0> 


, #C2X 


#02X, 


#02X, 


#02X, 


#01X, 


#02X, 


#01X, 


#ccx. 


#00X, 


#01X, 


#oox. 


#01X, 


#01X, 


#00X, 


#00X, 


#oox. 


#01X, 


# C 2 X , 


#01X, 


#01X, 


no2x, 


#02X, 


#01X, 


#01X, 


#OiX , 


#C1X, 


#00X, 


#01X, 


#01X , 


#01X, 


noix. 


#0 IX, 


#01X, 


#0 1>, 


#02X, 


#02X, 


#01X, 


#ccx. 


#oox, 


#01.X, 


no 2 x. 


#OiX, 


#02X, 


U02. X 1 


#01X, 


#01X, 


#0iX, 


#C1X, 


#01X, 


noox. 


#C1X, 


#00X, 


# 0 IX , 


frClX, 


#OlXr 


#01X, 


#01X, 


#CiX, 


#01X, 


no IX, 


#01X, 


#0 IX, 


#01X, 


#01/, 


#01X, 


#C1X, 


#03X, 


#C1X, 


#00X , 


#01X, 


#ccx. 


#01X, 


#OiX, 


#0IX, 


# 00 x , 


#00X, 


#oox , 


#oox. 


#00X, 


#ocx, 


#ccx. 


#02X, 


#OOX, 


#cox. 


#oox. 


#02X , 


#00X, 


#ocx. 


#00X , 


# 0 0 X , 


#02X, 


#00X, 


#01X, 


#0iX, 


#oox, 


#oox, 


#02X, 


#C4X, 


#02X, 


#0CX, 


#ccx. 


#UOX, 


#02X, 


#oox. 


#02X , 


#oox , 


#oox , 


#0GX, 


#02X, 


noox, 


#00X, 


#OCX, 


#oox. 


#0CX, 


#01X, 


#ocx. 


#cox. 


#C2X, 


#02X , 


noox. 


#C2X, 


#02X, 


#0OX, 


#oox. 


#00X, 


#02X, 


#02X, 


#ccx. 


#02X. 


noox. 


#ccx, 


#02X, 


ffOOX, 


#02>, 


#00X , 


#02X, 


#oox , 


#ccx. 


#oox , 


noix. 


#ocx, 


#0 2X, 


#00X , 


#02X, 


noox, 


#oox. 


#02X, 


#C2X, 


#02X, 


#02X, 


#02X, 


#00X , 


#00X , 


#00X , 


noox , 


#01X, 


#01X, 


#0 iX, 


#01X, 


#01)^, 


#C1X, 







#0 1X, 


#CIX, 


#C2X, 


#01X, 


#01X, 


#01X, 


#CIX, 


#01X , 


#01X, 


#02X, 


#02X, 


#02X, 


#00X, 


#00X, 


#00X, 


#01X, 


#C2X, 


#01X, 


#03X, 


#C1X, 


#02X, 


#00X, 


#02X, 


#01X, 


#01X, 


#01X , 


#oox, 


#00X, 


#00X, 


#01X, 


#0 IX, 


#OLX, 


#02X, 


#01X, 


#01X, 


#0IX, 


#0 IX, 


#01X, 


#02X, 


#00X, 


#00X, 


#oox. 


#02X, 


#02X, 


#00X, 


#oox. 


#ocx, 


#02X, 


#02X, 


#C1X, 


#02X, 


#01X, 


#02X, 


#03X , 


#03X , 


#01X, 


^#C1X, 


#01X , 


#01X, 


#01X, 


#0 IX, 


#00X, 


#COX, 


#00X, 


#ocx. 


#02X) 


; 









ARRAV 0083 SHORT INTEGER REDUCESUCC = (#06FFS, J1/0002S, i^0003S, 
#00035, ^ 03003 , #03005, #0300$, #03CCS, #03005, #00065, 

#00065, #00075, #00075, #0301$, #03015, ^05015, #05015, 

#05005, #05035, #05035, #01145, #05045, #05045, #05045, 

#05045, #05045, #05055, #05055, #05055, #05055, #05055, 

#05055, #05055, . #05055 , #05055, #05055 , #05055, #05055, 

#05055, #05055, #05055 , #05055, #05055 , #05055, #,05055, 

#00155, #00155, #050E5, #050E5, #00505, #00905, #050FS, 

#00165, #003AS, #003AS, #03125, #03125, #03135, #03135, 

#05125, #05125, #016FS, #016F5, #02175, #05115, #05025, 

#00175, #05065, #05075, #02195, #02195, #05155, #05155, 

#05165, #01195, #01195, #01265, #01265, #001A5, #001A5, 

#05085, #05085, #05085); 

CLOSE 8A5E; 

GLC8AL DATA SEGT5 BASE R8; 

ARRAY 0150 SHORT INTEGER CQNTREDUCESUCC = ( 

, #05085, #05085, #05085, #05185, 

#05185, #00AC5, #OOACS, #051DS, #05105, #G0AF5, #00AF5, 

#00AF5, #05iE5, #051£5, #05105, #05105, #05105, #051F5, 

#051F5, #051F5, #C51FS, #051F5, #05135, #05135, #05205, 

#05203, #05195, #05195, #0CAD5, #OOACS, #05235, #05235, 

#00805, #00305, #00805, #00805, #02715, #02715, #05245, 

#05245, #05245, #05245, #05255, #05255, #051A5, #051AS, 

#05265, #05265, #05265, #05265, #05275, #05275, #05185, 

#05185, #05135, #05285, #05285, #05145, #05145, #01945, 

#01945, #05295, #05295, #052A5, #052AS, #C52AS, #052AS, 

#052AS, #05285, #05285, #02965, #02965, #02965, #02965, 

#052CS, #052CS, #C52C5, #05205, #05205, #052CS, #05005, 

#05005, #05005, #05005, #05005, #05005, #05005, #05175, 

#05175, #05175, #05175, #05175, #0517$, #05175, #05225, 

#05225, #051CS, #05105, #051C5, #00165, #00105, #05205, 

#05205, #05095, #05005, #05CCS, #008^5, #00845, #00845, 

#00845, #00845, #00845, #00845, #05215, #0521$, #05215, 

#05215, #052FS, #052FS, #052FS, #052FS, #05305, #05305, 

#0024$, #00245, #00245, #00275, #00275, #05315, #05315, 

#05315, #00235, #00285, #00105, #00105, #0303$, #03035, 

#OOIFS, #00205, #00215, #00225, #05CAS, #050AS, #05035, 

#05065, #052ES, #052ES, #052ES, #052ES, #07005); 

CCNf^ENT THE DPDA HAS 0049 LOOK AHEAD STATES; 
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ARRAY 0049 BYTE LASYMNUM = (#6EX, #7iX, j5^73X, J^79X, #79X, ^82X, #79X, 
#79X, #79X, ^79X» J!^79X, #79X, ?!^90X, ^93X, #7FX» #8CX, #8£X, 

fit8AX, #7DX,.#7DX, #78X, #84X, #84X , A8^X, ?¥84X, #84X, #A5X, 

}!^A6Xf /^A7X, #AAX, #B4X, #9AX, #A4X, :^C3X, #C3X, #C3X, #92X, 

#C0X, #COX, #C3X, #C3X, #B0X, yi^CSX, i^-C4X, -/^AEXr fi^ASX, #A6X, 

#AAX, #^C3X) ; 

ARRAY 0049 SHORT INTEGER SUCCSTATE = {^0203Sf j?/02CAS, /^02CCS, #C220S, 
#022BS, i^^024BS, #021ESt #021rS, #0221Sr /^0222S, #0223S, 

#02245, #02BCS, #024DS, #02425, #02445, #C2D8S, #02DAS, 

#02355, #02365, #02155, #02505, #02515, #02525, #02535, 

#02545, #02565, #02605, #02805, #025AS, #02775, #02615, 

#02AFS, #02015,, #02025, #02035, #02AE5, #029FS, #02A0S, 

#02B£S, #02005, #02065 , #02EFS^ #Q2XAS , W0266S, #02575, 

#026ES, #02565, #02605); 

ARRAY 0049 SHORT INTEGER FAILSTATE = (#00056, ^OOCDS, #COOFS, #CC1ES, 
#00255, #003ES, #00425, #00445, ^00465, #00475, #00485, 

#00495, #004AS, #00405, #00525, #00635, #00655, #00665, 

#01605, #00605, #00735, #00745, #00755, #00765, #00775, 

#00785, #00795, #007AS, #00765, #00705, #00705, #007FS, 

#00825, #00855, #00865, #008/5, #008-t:5, #00905, #00905, 

#00665, #00875, #01685, #00695, #008/5, #00605, #OOEFS, 

#00005, #00015, #00025); 

ARRAY 0686 BYTE LATABLE = ( 



OOMMENT <SYS OEOL HEAD>; 
#07X, #00X, #00X, #00X, #00X, 
#OCX, #00X, #C0>, #00X, 


#oox. 


#C£X, 


#oox, 


noQx, 


#ccx 


00^'.^^ENT <SYSPROC CECL 
#OCX, #38X, #00X, #00X, 
#00X, #00X, #00X, #00X, 


HEAO; 

#oox. 


#oox , 


#ocx, 


#oox , 


noox. 


#oox 


OONMENT <SYSPRQOREN OEOL HEAO; 
#00X, #18X, #00X, #00X, #00X, #00X, 
#00X, #00X, #00X, #00X, 


#ccx. 


#oox. 


noQ'x, 


#ocx 


OOMMENT <5IMPLE STM>; 
#08X, #OOX, #00X, #01X, 
#0CX, #00X, #00X, #00X, 


#oox. 


#oox. 


#ccx. 


#oox. 


noQx, 


#ccx 


OOMMENT <SIMPLE STM>; 
#08X, #00X, #00X, #01X, 

#oox, #oox, #oo>, noox. 


#oox , 


#oox, 


#oox, 


noox, 


noox, 


#oox 



OOf^MENT <BEGIN HEAD> 







#00X, /^03X, j^ccx, #10X, J^AEX, 

#1FX, #BEx, #oox, 

COMMENT <SIMPLE STM> ; 

^^08Xf »OOX, ji^OOXf rfOlX, #OOX, 
^OCX, flfOOX, j^OO>, J^oox, 

COMMENT <SIMFLE STM>; 

#08X, #OOX, #COX, frOlX, #OOX, 

#OOX, #OOX, nQQXi #oox, 

COMMENT <SIMPLE STM>; 
j^08X, #OOX, />OOX, J^OIX, #OOX, 

/^OOX, »OOX, #QO>, #OOX, 

COMMENT <SIMPLE STM>; 

#08X, #OOX,.??OOX, #OiX, noox, 
#OCX, #OOX, #CO>, #OQX, 

COMMENT <SIMPLE STM>; 

#08X, /^OOX, #COX, j^OiX, #OOX, 
#OOX, #OOX, #COXf /^oox, 

COMMENT <SIMPLE STM>; 

#08X, #^OOX, UQQX, i(/OlX, #OOXf 
#OOX, #OOX, #OOX, #OOX, 

COMMENT <PROCEDURE STM>; 
#08X, s^OOX, fltl2X, #01X, ^OOX, 
JSfOCX, #OOX, #OOX, #OOX, 

COMMENT <CG8EGIN HEAD>; 

#OOX, #02X, #DCX, ?!^10X, #AEX, 
#06X, ftfBEX, ^OOX, 

COMMENT <WHILE CLAUSE>; 

UQOXt #OOX, ?^OOX, ^OOX, #4CX, 
#OOX, #OOXr f/00>, #'OOX, 

COMMENT <IF CLAUSE>; 

#OOX, #OOX, #OOXf /ifOOX, #10X, 

#OOX, ^OOX, #GO>, #OOX, 

COMMENT <INPUT CLAUSE>; 
j^^OOX, /l^OOX, /fOOX, ^OOX, #OOX, 
Jf^oox, i^^OOXT jfffOlX, #oox, 

COMMENT <OUTPOT CLAUSE>; 



Ji^OOX, 
#OOX, 
#OOX, 
j^OOX, 
noQ '/. , 
%QOX , 

^oox, 

#oox, 

i¥OOX, 

#oox, 

?i^OOX, 

f^^oox, 



#ccx, 

JiCCX, 

J^CCX, 

^!ICCX, 

#ocx, 

#ccx, 

Jl/CCX, 

^oox, 

^ccx, 

5dCCX, 

jffOCX, 

ififCCX, 



#ocx, 
#oox, 
#oox, 
#oox , 
#oox, 
#oox, 
#oox, 

Ji^OOX, 

#oox, 
#ocx , 

jf^OOX, 

#oox, 



# 0 CXt 

#ccx, 

?^oox, 

#ocx, 

#ccx, 

#oox, 

#ccx, 

#ccx, 

#ocx, 

#ccx, 

#ccx, 

Jf^oox, 



#cox 

§QOk 

#oox 

#oox 

^ocx 

#oox 

#ocx 

^/ocx 

/i!OOX 

#ocx 

HOOX 

#oox 




81 / U 



^08X, 


#OOXf 


#00X, 


#01X, 


#oox, 


#0CX, 


#OOX, 


#OOX, 


#80X, 




COMMENT <CASE LIST>; 




#OOX, 


#OOXt 


f^QOX, 


AfOlX , 


#oox, 


#OOX, 


#OOXt 


#CO>, 


A^OOX, 




COMMENT <CASE LIST>; 




#OOX, 


#OOX, 


#00>, 


#01X , 


#ocx. 


#OOX, 


i^OOX, 


#OOX, 


HQQX, 




COMMENT <BASIC STM>: 




#08X, 


#OOX, 


^OOX, 


f/OOX, 


#oox. 


#OCX, 


#OOXf 


^CQ>, 


UOOXf 




COMMENT <EXPR>; 






#08X, 


#oox, 


#12X, 


noix , 


#oox. 


#OOX, 


#60Xf 


#OOXf 


#OOX, 




comment <e 


XPR>; 






#oax, 


#oox. 


#i2X, 


#01X , 


#ocx. 


#oox, 


^^^60X, 


#OOX, 


#oox. 




comment <expr>; 






t^oaXf 


/^OOXf 


#12X, 


^OiX, 


^oox, 


#ocx, 


#-60X» 


/rOOX, 


#OOX T 




COMMENT <£XPR>; 






#U8X , 


i*i^ OOX t 


i 2 X t 


A^OiX T 


#oox, 


#OCX, 




^OOX, 


#oox , 




COMMENT <EXPR>; 






f^USX, 


#oox» 


#12X, 


J^OIX, 


^ 0 C X T 


#OOX, 


#60Xf 


AiOOX, 


#oox, 




COMMENT <REAL EXPR>; 






j^^OOX, 


A^12X, 


?!/OiX, 


#0 iX, 


»OCX , 


UbOX, 


tA 0 0 X j 


A^CiOX » 




COMMENT <BITS EXPR>; 




08X , 


^QOX, 


»12Xt 


#01X , 


#oox, 


^OOX, 


i^60X, 


noox. 


,A^OOX, 




CGMME 


NT <CH/!iR EXPR>; 




UObXj 


HOOX, 


JA12X, 


A^OIX, 


UCCXf 


#OOX, 


#60X, 


UQQXf 


ftOQXj 





#oox, 


#ccx, 


#oox, 


#OOXt 


#ccx 


#oox , 


AjOCX, 


#oox, 


#oox, 


#ccx 


A^OOX, 


A/OCX, 


#oox , 


#oox, 


#oox 


#oox. 


i!/CCX, 


#OOXt 


#oox» 


#CCX 


A«OOX , 


AiOCX, 


^oox, 


#ocx. 


#ocx 


#00X, 


#ocx , 


A^OCX, 


#oox, 


#oox 


^oox. 


^^lCCX, 


A^OCXf 


#OCXt 


#ccx 


nOQXj 


^ocx, 


UQOXf 


i^OCXf 


#ccx 


#oox. 


fOCXf 


^oox, 


#oox, 


AfOOX 


J^80X, 


iiCCX, 


uoox. 


#OCXt 


A?CCX 


^oox. 


AlOCX, 


uoox. 


#ocx, 


J^CCX 


#oox. 


#ccx, 


UOiXf 


#oox, 


#oox 



COMMENT <REAL TERM>; 




6-trU 



#08X, ^OOX, #12X, JS^OIX, #01X, 
#0CX, #60X, #OOX, #OOX, 


MFOXf 


sfiCCX, 


#OCXt 


/^OGXt 


#ccx 


COMMENT <BITS SECN>; 

#08X, #OOX, #12X, #01X, fH^oOX, 
#OOX, #60X, #00X, #OOX, 


#OOX, 


#CFX, 


#COX, 


#oox, 


Jl^OOX 


COMMENT <SIGNEO REAL PRI> ; 
^08X, #OOX, ^12X, ^6iXt #41X, 
#OOX, ^60X, ji^OOX, ^OOX, 


#F8X, 


nCFXt 


#cox, 


^ocx, 


#ocx 


COMMENT <DATA UNIT CLAUSE>; 
#08X, UQIX, UiZXi ffOlX, ^OOX, 
/^OCX, ^20X, #00>, #COX, 


^OOX, 


accx. 


#oox, 


#ocx, 


#ccx 


COMMENT <ACTUAL PARAMETER LIST>; 
#OCX, tfQOX, sf^lOX, #OOX, ii-OQX, #OOX , 
#OOX, ^QOX, /#CO>, ii^OOX, 


^ 0 CX f 


#oox, 


#oox, 


il^OOX 


COMMENT <ACTUAL PARAMETER LIST>: 
r^OOX, #Q0X, ^lOX, »OOX, »OOXf ^OOX, 
Ji^OOX, UOQXf nOQX, #OOX, 


acQX, 


#ocx, 


/f 0 0 X f 


#ocx 


COMMENT <ACTUAL PARAMETER LIST>; 
#OOX, #OOX, #10X, ?/OOX, #OOX, #OOX, 
#OCX, #OOX, #oox, #oox, 


ACCX, 


#oox, 


uocx. 


#ccx 


COMMENT <DATA UN I T> ; 

#08X, ^QIX, trlZX, j^09X, #OOX, 
#01X, ^ZOX, i(^ClX, ^80X, 


HOOXf 


^ccx, 


#oox, 


#ocx, 


#cex 


COMMENT <REL OPER>; 

#OOX, #OCX, #CiX, »02X, #OCX, 
#OCX, #OOX, #OOX, #OOX, 


UQ2X, 


#FCX , 


#IEX, 


#FEX, 


#ocx 


COMMENT <REL OPER>; 

#OOX, #COX, ^'OIX, #02X, ^OOX, 
#OCX, #OOX, fi/COX, #OOX, 


5^C2X, 


/>FCX, 


#1EX, 


#FEX, 


#ccx 


COMMENT <ACTUAL PARAMETER LIST>; 

#ocx, tfoox, filoxt nooxj #ocxt #oox, 
#OCX, #QCX, #cc>t ^OOX, 


^ccx, 


#oox, 


J^CCX, 


itCCX 


COMMENT <ACTUAL PAR-AMETER LIST>; 
#OOX, ^OOX, UlOXy ^QOX, #OCX, #OOX, 


accx, 


#OOXf 


iiGOXf 


#oox 



#00X, »00X, ?#oox, 

COMMENT <INPLT PARAMS>; 




o^u 



#00X, UQOXf §l2Xf noox, 
noox, #6ox, #oo>f noox, 


#ocx, 


#OOX, 


noox. 


noox. 


noox. 


noox. 


COMMENT <AGTUAL PARAMETER LIST>; 

noQx, noox, niox, noox, noox, noox, 
noQx, noGX, noo, noox. 


noox. 


noox. 


noox. 


ncox, 


COMMENT <OUTFUT PARAMS> 

nocx, noQX, nizx, noox, 
noox, nzox, noo, noox, 


#ocx , 


noox, 


noox, 


noox. 


noox. 


noox. 


COMMENT <REAL PRI>; 
no8x, noox, nizx, noix, 
ncox, neox, noox, noox. 


n5 IX, 


#F8X, 


ncFx, 


noox. 


noix. 


#83X, 


COMMENT <REAL EXPR>; 

no8x, noox, nizx, noix, 
noox, neox, noox, noox. 


noix. 


neox. 


noox. 


noox. 


noox. 


noox. 


COMMENT <BITS BXPR>; 

# 08 Xf #oox, nizx, noix, 
noox, neox, noox, noox. 


#0CX, 


noox. 


noox. 


noox. 


noox. 


noox. 


COMMENT <REAL TERM>; 
no8x, noox, nizx, nO-\x, 
noox, neox, noox, noox. 


#01X, 


nFGX, 


noox, 


noox. 


noox. 


#ocx, 


COMMENT <ACTUAL PARAMETER LIST>; 

noox, noox, niox, noox, noox, noox, 
noox, noox, neox, noox); 


ncox. 


noox. 


noox. 


ncox , 



COMMENT THE DPDA HAS 0050 


LOOKBACK STATES; 








ARRAY 


0050 BYTE LBSTART = 


inoox 


, no3x 


, no5x 


, no8x 


, noox, nizx 


, mix 




#1SX, ^IBX, 


niEX, 


nzQX, 


nz3x. 


nzex, 


nzex. 


n33x, nzex. 


#37X, 




n^OX, #43X, 


n^ex. 


n^6X, 


#4FX, 


neix. 


n53X, 


#5AX, n5DX, 


neox. 




ne3x, neax, 


nefx. 


mix. 


ni3x. 


niFx , 


n83X, 


n89X, H92X, 


#94X, 




noDX, nMx, 
noix, no9x, 


^ A 9 X , 

ncox ) ; 


^^^AFX, 


nb2x. 


#B,5X, 


neix. 


neax, nozx. 


#C4X, 


ARRAY 


0050 BYTE LBNUM = inOZX, 


noix „ 


nozx, 


nozx. 


noex, #04x, 


noix, 




noix, nozx. 


noix. 


nozx. 


nozx. 


noix. 


nc^x, 


#oix, noix. 


noex. 




nozx, nozx. 


#C4X, 


no3x , 


noix , 


nax. 


noex. 


nozx, nozx. 


nozx. 




#04x, noex, 


noix. 


noix. 


nobx. 


no3x. 


nozx. 


no8x, noix. 


noex. 




no3x, no-ix, 
noix, no3x. 


no5x, 
noix ) ; 


no3x. 


noix. 


noix. 


n Osx , 


noex, noix. 


nozx. 




ARRAY 0207 SHORT INTEGER LBSTATE = (JS/0005S, /lOCOCS, jf^OOOOS, ^COCES 



#OOOOSf 


#010ES, 


#01195 , 


#00005, 


#01305 , 


#01305, 


#01ABS, 


#0 00.0 St 


■#01145, 


#01685, 


#01385, 


#01605 , 


#016FS, 


#00005, 


#01395, 


#01405, 


#013CS , 


#01 A8S, 


#00005 , 


#00155, 


#00005, 


#013CS, 


#00005, 


#013FS, 


#01885, 


#00005 , 


#00165 , 


#00005, 


#001DS, 


#00205, 


#00005 , 


#001ES, 


#001FS, 


#00005, 


#00235, 


#0CC0S, 


#00255, 


#CC2AS , 


#00205, 


#00265, 


#00345, 


#00355, 


#004iS, 


#00435, 


#00455, 


#00895, 


#00005, 


#00295, 


#00005, 


#00505, 


#00005 , 


#00915, 


#00925, 


#00935, 


#00805, 


#00815, 


#0CB4S, 


#00855, 


#OC0C5 , 


#00005, 


#01365 , 


#01605, 


#00005 , 


#0 13BS, 


#00605, 


#00005, 


#0CC4S, 


#01365, 


#00605 , 


#016FS, 


#00005, 


#01265, 


#01205 , 


#015.45 , 


#00CCS , 


#00185, 


#00005, 


#01305, 


#00005,, 


#001A5, 


#00865, 


#00865 , 


#00425, 


#00475, 


#00495, 


^OOOOS , 


#01545 , 


#00835, 


#00005, 


#01545, 


#00825, 


#00005, 


#01545, 


#008ES , 


#00005, 


#00/iCS , 


#013FS, 


#01385, 


#0 1B8S, 


#00005 , 


#00485, 


#00405, 


^^OOE/iS, 


#013FS, 


#01885, 


#01B8S, 


#00005 , 


#00AC5 , 


#00005, 


#00AFS, 


#00005, 


#00805, 


#00815, 


#00985, 


#01285, 


#01205, 


#01535 , 


#01945, 


#013FS , 


#0 1545, 


-# 0 1 8 8 S , 


#01685, 


#00005, 


#OC^ES , 


#00405, 


#OCfiAS , 


#0 00.0 5, 


#004AS, 


#005.5 5 , 


#00585 , 


#00505 , 


#00505, 


# u 0 0 0 5 , 


#0C4BS, 


#00565, 


#005F5 , 


#00605, 


#006 IS , 


#00625 , 


#00405, 


#OOBAS, 


#00005, 


#00AD5 , 


#00005, 


#00765 , 


#C09ES, 


#CCADS, 


#00625, 


#01285 , 


#01205 , 


#01535, 


#01945 , 


#00005, 


#00485 , 


#00405, 


#00BA5 , 


#00005, 


#009FS, 


-#OCAES , 


#coeES, 


#01285, 


#01205, 


;^^01535 , 


#01945 , 


#00005, 


#00485 , 


#00675, 


#00685 , 


#00405, 


#006A5 , 


#00005, 


#00485, 


#00405 , 


#00BAS , 


#00005, 


#0 1945, 


#00005, 


#01535, 


#00005, 


#00485 , 


#00405, 


#008AS, 


#00005, 


#00575, 


#007FS , 


#00585, 


#00705 , 


#00595, 


#00765, 


#00005, 


#00645, 


#00005 , 


#00305, 


#00315, 


#00005, 


#004AS, 


#00005, 


-#004A5, 


#00855, 


#00865, 


#00005, 


#C04ES, 


#00005) ; 


ARRAY 0207 SHQR 


T INTEGER RESUMESTATE = 


(#02015 , 


#02065 , 


#02075, 


#02005, 


#03025, 


#020F5, 


#03055, 


#03005, 


#02455, 


#02465, 


#02465, 


#00135, 


#02125 , 


#023FS , 


#00665 , 


#006ES, 


#006ES, 


#02135, 


#02435, 


#02295 , 


#03145, 


#03 145 , 


#02155 , 


#02165, 


#02185, 


#00725 , 


#00185 , 


#02185, 


#02045, 


#0^075, 


#02105, 


#02105, 


#03065, 


#03095 , 


#03085, 


#03075 , 


#03085, 


#030AS , 


#02255, 


#02035, 


#02275, 


#02345, 


#024ES , 


#02865 , 


#02DES , 


#020FS, 


#028A5 , 


#02605 , 


#02625, 


#02085 , 


#02055, 


#02205 , 


#022ES, 


#022FS, 


#02305 , 


#02335 , 


#02325 , 


#02315, 


#02725 , 


#02605, 


#02815, 


#02825, 


#00035, 


#025FS , 


#02375, 


#02385, 


#0z3BS, 


#02395, 


#023 AS , 


#02305 , 


J0267S , 


#00705, 


#00705, 


#00705, 


#026 4 5, 


#030ES , 


.#03CFS, 


#00955 , 


#03195, 


#01305, 


#01AbS, 


#02475, 


#02485, 


#024FS, 


#02CeS , 


#02085, 


#02£15, 


#02E1S, 


#02E1S, 


^02835 , 


#00965, 


#00965 , 


#03155 , 


#00975 , 


#00975, 


#03 165, 


#00985 , 


#00985, 


#03 p/S , 


#02905, 


#03185, 


#03185, 


#0318 5 , 


#005A5 , 


#03245, 


#0 3 2 C 5 , 


#03205, 


#02555, 







#02555, #02555, #CC8F5, #032t)5, #031^5, #C32FS, #031CS, 

#02625, #02635, #02995, #00575, #00575, #00575, #00575, 

#031F5, #03iF5, #03iFS, #031FS, #02615 , #02/^35, #02/fiA5, 

#02AA5, #02655, #03215, #00955, #OOAIS, #00A2S, #0CA35, 

#00A45, #00805, #009AS, #OOA5S, #00 A 6 S , # 00A7 5 , #0CA8S, 

#00835, #00835, #00305, #032E5, #031ES, #02785, #029A$, 

#02775, #02775, #00585, #00585, #00585 , #0058 S , # 03 1 E 5 , 

#02A4S, #02ABS, #02A6S , #027AS, #02985, #027FS, #02805, 

#005.95, #00595, #00595 , #00595, #03iCS, #02A5S, #0CA9S, 

#00AAS, #02AC5, #02AC5, #02825, #02A7S, #02ADS, #G2ADS, 

#02885, #02805, #02805, #02915, #02905, #02A6S, #02AES, 

#02AES, #02945, _#009BS, #00985, #009ES, #009ES, #0C9FS, 

#009FS, #00A0S, #02875, #02045, #03105, #03115, #0C8ES, 

#03225, #03275 T, #03235 , #03285, #032AS, #03305 , #02025, 

#02015) ; 

CGN'MENT THE SYMBOL5 ACCESSING THE STATES; 

ARRAY 0197 BYTE SYMBE FOR ERE AO = (#00X, #01X, #8DX, #6E)^, #C2X, #6FX, 



#71X, 


#73X, 


#07X, 


#08X , 


#09X, 


#03X, 


#ocx. 


#72X, 


#oex. 


#74X, 


#0 3X, 


#03X, 


#03X, 


#76X, 


#77X, 


#7AX, 


#7CX , 


#7FX, 


#80X, 


#82X, 


#83X, 


#85X, 


#87X, 


#88X, 


#8 AX, 


#8CX , 


#8CX, 


#8EX, 


# 8 F X , 


#1CX, 


#91X, 


#liX, 


#93X, 


#94X, 


#95X, 


#15X, 


#iex , 


#20X , 


#22X, 


#26X, 


#55X, 


#56X, 


#60X, 


#62X, 


#63X, 


#64X, 


#£5X, 


#66X, 


#5EX, 


#5FX, 


#16X, 


#2iX, 


#7DX, 


#ICX , 


#23X, 


#A2X , 


#75X, 


#OFX, 


#16X, 


#57X, 


#69X, 


#67X, 


#8BX, 


#b8X , 


#3BX , 


#89X, 


#EEX, 


#89X , 


#58 X , 


#ICX, 


#75X, 


#1^X, 


#16X, 


#16X , 


#97X, 


#17X, 


#A IX, 


#49X, 


#2£X, 


#4BX, 


#40X, 


#AEX, 


#B6X , 


#B8X , 


# A8X , 


#30X, 


#3CX, 


#41X , 


#44X, 


#32X, 


#3 EX, 


#43X, 


# 46X , 


#AiX, 


# 1 D X , 


#C2X, 


#C2X, 


#1DX, 


#10X , 


#2EX, 


#2EX, 


#1FX, 


# 9 BX , 


#9CX, 


#7 8 X , 


#9FX , 


^AOX, 


#1EX, 


#80X, 


#79X, 


#A5X, 


#A6X, 


#A7X, 


# A 8 X , 


#A1X, 


#AAX , 


#B2X, 


#B8X , 


#ACX, 


#E6X, 


#3AX, 


#AEX, 


#28X, 


#2DX, 


#A9X , 


#BiX , 


#C2X, 


# B 0 X , 


#C4X, 


#C5X, 


#2EX, 


#39X, 


# 5 AX , 


#A9X , 


#B1X , 


#BiX, 


^C2X, 


#A9X, 


#99X, 


#1AX, 


#19X, 


#18X, 


#BCX, 


#A IX, 


#A 5X , 


#A6X, 


#A7X, 


#BOX, 


#BLX, 


# V.. u X , 


#3 OX, 


#5iX, 


#COX, 


#COX, 


#COX, 


#BOX, 


#8CX, 


#BOX, 


#BCX, 


#8 IX , 


#81X, 


#biX, 


#aix. 


#B9X , 


#B9X , 


#A2X, 


#AEX, 


#B3X, 


#3FX, 


#ACX, 


#B5X, 


#2CX, 


#2£>, 


#2cX, 


#2EX, 


# 16X , 


#C4X, 


#C5X, 


#16X, 


#C5X, 


#16X, 


#16X, 


#2EX, 


#13X, 


#2EX^ 


# A A X , 


# 6 2X , 


#ACX, 


#C5X, 


#9AX, 



#2FX); 

ARRAY 0049 BYTE SYMBEFORELA = (#6FX, #72X, #74X, #8AX, #UX, #75X, 

#89X, #8BX, #83X, #89X, #8BX, #89X, #58X, #75X, #A1X, #A1X, 

#C2X, #C2X, #9BXt #9CX, #79X, #A5X, #A6X, #A7X, #A8X, #A1X, 

#AAX, ^B2X, #88X, #ACX, #B6X, #AEX, #A9X, #B0X, #C4X, #C5X, 

#A9X, #50X, #5iX, #C4X, #C5X, #16X, #C5X, #L6X, #13X, #AAX, 

#82X, #ACX, #C5X); 



CLOSE BASE 







APRAV 18 INTEGER SEGTABLE = { 

JS^OCGCOOOQ, 

#00000794, . 

#OOOOOABO, 

#CCCCCC3A, 

#OOO.OOCFF, 

#0000186A, 

#0CCC2F40, 

#0000202A, 

#000.03IFC, 

#0C00322E, 

#00003290, 

#000032F2, 

#CCCC35A0, 

#JU0035D2, 

#00003604, 

#000C37A2, 

#00003940, 

#CCCG3A05) ; 

COMMENT END OF MAIN GRAMMAR PARSING TABLES- PARSING TABLES FCR SECOND 
GRAMMAR FOLLOWS; 

INTEGER BNUMTERMINALS = 0047; 

INTEGER BNUMNTS ^ 0037; 

INTEGER BNUMSYMS = 0085; 



GLOBAL DATA BSEGTABLE BASE Rll; 



ARRAY 0794 BYT 


E BVSTRING = 


( #C5X 


, #D9X 


, #D9X 


, #D6X 


, #D9X 


, #E2X 


, #E8X 


#D4X, 


#40X, 


#6EX, 


#60X, 


#4FX, 


#60X, 


^4CX, 


#C4X, 


#C5X, 


#C3X, 


#D3X, 


#6EX, 


#4CX, 


#E2X, 


#E^X , 


#C2X, 


#6CX , 


#D9X , 


#D6X, 


#E4X, 


#E3X, 


#C9X, 


#D5X, 


#C5X, 


#4QX- 


#C4X, 


^C5X, 


#C3X, 


#D3X, 


#6EX, 


#4CX, 


#C4X, 


# C i X , 


#£3X , 


#CiX, 


/t40X , 


AC^X, 


#C5X, 


#C3X, 


#C3X, 


#6EX, 


#4QX, 


#C4X, 


#C1X, 


#E3X# 


#C i.x , 


HAQX, 


#C5X, 


#D3X, 


#C5X, 


#04X, 


#6bX, 


#C5X, 


^05X, 


#C4X, 


#60X- 


nCAXt 


#C4X, 


#5BX, 


#4CX, 


#07X, 


#D9X, 


#D6Xr 


#C3X , 


#C5X, 


#C4X , 


#E4X, 


#D9X, 


#C5X, 


f^4CX, 


#C4X, 


frC5X, 


#C3X, 


#D3X, 


#6EX, 


#4CX, 


#CcX , 


#D7X , 


#C1X, 


#C9X, 


#D4X, 


#40X , 


#C3X , 


#C9X, 


#E2X, 


#E3X, 


6 E X , 


#5DX, 


#4CX, 


#C6X, 


#E4X, 


#D5X, 


#C3X , 


#E3X, 


#C9X, 


#D6X, 


^05X , 


#40X , 


#C3X, 


#C3X, 


#CIX, 


#£4X, 




nC5Xf 


#6 6 X , 


#D7X , 


iiCSXi 


#D6X, 


#C3X, 


#C5X, 


#C4X, 


e4a. 


#C9X, 


#C5X , 


#4CX, 


#C9X, 


i^C^X, 


i^6EX, 


#4CX, 


#C9X, 


#05X, 


#40X, 


#D7X, 


#CIX, 


#D 9X , 


??D4X ♦ 


# E 2 X , 


#6EX, 


#4tX, 


j!^C6X, 


# E4X , 


#E3X, 


#4UX , 


#D7X, 


UC IX, 


#09X, 


^/D^X, 


#E2X, 


6 E X , 


#4CX, 


#D3X, 


#C iX, 


#C2X , 


#C5X, 


#D3X , 


#40X , 


^C7X, 


#C1X, 


#D9X, 


?>DAX, 


#E2X, 


#6 EX, 


#4DX, 


#4CX , 


#E5X, 


#C J.X , 


^D9X, 


#6EX , 


#63X , 


#4FX, 


#4FX, 


#4FX , 


#4CX, 


#C6X , 


#EAX, 


#D5X, 


5!?C3X, 


# E 3 X , 


#C9X , 


#D6X, 




i?5u 



^D5Xf 


j!^40X, 


#C8Xt 


#C5X, 


#C1X, 


#C4X, 


/#6EX, 


#C6X, 


#E4X, 


J^C5X, 


UC3X, 


#E3Xt 


#C9Xt 


?/06X, 


^D5X, 


#4CX, 


^C^X, 


IX, 


#E3X, 


#C1X, 


#4CX, 


#E3X, 


#E8Xt 


#07X, 


^C5X, 


3^^6EX , 


ii^CXt 


i(f!D5X, 


#E4X, 


^ C 4 X , 


#40X, 


ff E5Xf 


#C IX, 


fi!D9X , 


#6EX , 


it^CXf 


UC2X , 


#C9X, 


#E3X, 


#E2X, 


#40X, 


^E5Xt 


#C1X, 


?^09X, 


#6EX, 


#4CX, 


HC3Xt 


#C8X, 


#C IX, 


/^D9X, 


#40X, 


#E5X, 


#C1X, 


^09X, 


#6EX, 


*¥4CX, 


HEZXt 


#E3X, 


^CIX, 


?5^E2X, 


#40X, 


^E5Xf 


#CiX, 


#09X, 


#6EX, 


?¥4CX, 


ifCi^Xf 


#D6X , 


#D6X , 


^^C3X, 


#40X, 


It E3X » 


rfClX, 


#09X, 


EX , 


i^4CX , 


HE3X, 


/;C2X, 


J^D3X, 


//^CX, 


#D5X, 


#C IX, 


^D4X, 


UC5Xi 


it 6 EX t 


a^cx9 


nc9Xf 


i^E3X , 


aC3Xf 


^C^X, 


#40X, 


if^ClX, 


/it46X, 


tf40X, 


#D5X, 


?tC IX , 


HDAX , 


#C5X, 


#6EX, 


#4CX, 


# £ 2X » 


^ t*+X f 


ttCZXt 


?/E3X , 


#C2X, 


i^DiX , 


a^cx, 


?jfD5X, 


ix, 


ac^x. 


#C5X, 


#6EX, 


fl£E2X, 


^E8X, 


?#E2X, 


r^6DX , 


itC^Xf 


#C4X, 


5<)fD3X, 


?^C6X, 


#C3X, 


DX 1 


#C4X , 


ilfC4X, 


J!^C1X, 


#E4X, 


tiE3X, 


#D6X, 


#6DX, 


#C4X, 


j^fC4X , 


#4CX, 


#E3X, 


}^D9X , 


ttczx , 


?V^D3X , 


^40X, 


#C4X, 


HC3X, 


i^C3X, 


#D3X, 


#40X, 


/|!C8X, 


#C5X, 


^ C 1 X , 


^^^C4X , 


i*?t EX , 


#4CX, 


#C9X , 


#E3X, 


#C5X, 


ft 13^ X t 


^6 EX, 


#4CX, 


#C cX , 


J^06X , 


C 9 X , 


^ D 4 X , 


#C IX , 


UE3X, 


/if40X, 


#C4X, 


iiC5Xt 


#C3X, 


i^D3X , 


//40X , 


#C8X , 


i^C5X , 


#C1X, 


#C4X, 


#b£X, 


i^4CX f 


ac^Xt 


•#C5X, 


^ E z X , 


#C3X, 


^U9X, 


acixy 


#D9X , 


#DEX, 


#E4X, 


#D7X, 


itoEX 1 


^hCX, 


#E3X , 


#C1X, 


^C7X, 


^40X, 


i^/C4X, 


ttCEXj 


^C3X, 


#D3X, 


#40X, 


#C8X, 


flSCSX , 


#CIX, 


J^C4X , 


?;^6EX , 


/^7EX, 


^4CX, 


#09X, 


7^-CbX, 


/i!C IX, 


«03X, 


#40X, 


#C3X, 


ifOtXt 


#D5X, 


#E2X, 


#E3X, 


#CiX, 


#D3X r 


i^i^ESX, 


/^6EX , 


^4CX, 


^E3X, 


nciXt 


#C2X, 


#D3X, 


»C5X, 


#4CX, 


if C 4X t 


#C5X, 


A^C3X , 


#D3X, 


#4UX , 


acex. 


#C5X , 


?^CLX, 


#C4X , 


#6 EX , 


r¥4CX, 


if E3X , 


?^C1X, 


#C2X, 


#D3X, 


^C5X, 


#40X, 


#C4X, 


ac5Xi 


#C3X, 


rf D 3 X t 


#6EX, 


#C5X, 


0 5 X , 


^C4X, 


D C X , 


fiiE3X, 


#C1X, 


aczXf 


/SfD3X, 


ttCbX, 


#^-»CX, 


#E 5X , 


^09X, 


#C2X, 


^ D ^ X , 


#40X, 


#cax. 


itC5X, 


#CiX, 


it C4X j 


^ 6 EX , 


#£5X, 


#D9X, 


aczx , 


HEZXy 


aC9X, 


^^D5X, 


i^E3X, 


#C5X, 


i^CYX, 


5X , 


f^D9X, 


itcex, 


?^C9X, 


UEIX , 


HC5X , 


#C4X , 


#C6X, 


#D3X, 


^06X, 


#C1X, 


HE3X, 


itCZX, 


acsXi 


^E3X, 


#E2X, 


^C3X, 


^C8X, 


/^CiX, 


^;d9X» 


'rtLZX 1 


aoox , 


ttDoX, 


#D3X, 


!^C 5X , 


#C1X, 


^/05X, 


i^4CX, 


#E2X, 


i^E3X f • 


i^V i-X , 


-iX , 


^/E4X, 


#E2X, 


a ^ cx j 


#C3X , 


#D3X , 


#CIX, 


#E4X, 


it E^X ♦ 


#C3X , 


^6 EX, 


#E2X, 


JSfE^X, 


ifClXj 


#E3X, 


#E4X , 


^E2X, 


#4CX , 


4E2x, 


>^E3X, 


#C1X, 


E 3 X , 


^E4X, 


UEZX , 


#40X, 


t^C3X , 


^C6X, 


#D5X , 


4E2X, 


iitpXf 


#C1X, 


?fD5X, 


#£3X, 


iftEX, 


#4CX, 


#C3X , 


n^D6X, 


#D5X, 


tttlX, 


^ E3 X , 


f!/ClX, 


# D5X , 


#E3X, 


^EEX, 


#4CX, 


#D5X, 


UE^Xf 


#D4X, 


itOeXi 


/;?D9X. 


^ifE3X, 


#C1X, 


#C7X , 


#6EX , 


#4CX , 


#C2X , 


#C9X, 


#£3X, 


tiE2Xi 


#4UX, 


HC3X, 


#U6X, 


#D3X, 


^E 2X , 


#E3X, 


^CiX, 


#D5X, 


#E3X, 


/>6EX, 


^4CX , 


j?C 3 X , 


/^C8X , 


/fCiX , 


^C9X, 


#40X, 


^C3X, 


C 6X , 


#D5X, 


#E2Xt 


UE3Xf 


IX , 


tt03X , 


#£3X, 


ntEx, 


#4CX, 


^C2X, 


ff C6X , 


//UOX j 


?^03X t 


//40X, 


UC3Xt 


#D6X, 


HDt‘X, 


hE2Xt 


,!/E3X, 


#C1X, 


i^D5X, 


#E3X, 


^6£X » 


# E3X T 


#D9X , 


#£4X , 


UC5Xf 


fiC6X , 


#CiX, 


/^D3X , 


^E2X, 


#C5X, 


#4CX, 


#E3X, 


IX, 


# C 7 X , 


it oEX t 


^E 3X , 


#C1X, 


#C7X, 


^^C6X, 


?#06X , 


##L)yx » 


D4 X , 


ttCiXi 


UE3X, 


#4CX , 


^C4X, 


jf^E2X, 


HC3X, 


^D9X, 


H03Xf 


rK9X, 


#E2X, 


#E3X, 


?JS4CX , 


#CEX, 


/iiC4X , 


#6EX, 


#4CX, 


^C4X, 


HtZX, 


fiC2X t 


ffC9x, 


/?D3X, 


#C9X , 


#E2X, 


^E2X, 


?i(6EX, 


^4CX, 


r/C4X, 


f^C5Xf 


itEZXf 


#C3X , 


^D9X , 


?fC9X , 


H D7X , 


^i^Eax, 


#D6X, 


#D9X, 


i^^fcEX, 


#4CX, 


tfD9Xf 


C 5 X , 


^D7X , 


frE3X , 


^D5X, 


#4CX , 


#C7X, 


i¥D9X , 


^C6X, 


#E4X, 


itDJXt 


^6EX , 


U^CXf 


/^E2X, 


^D3X, 


IX, 


UEZXj 


#c ex. 


//4CX, 






#03X, 


#C9X, 


#E2X, 


#E3X, 


#6EX , 


#61X, 


#4CX, 


#E3X, 


#C1X, 


#C2X, 


#D3X, 


#C5X, 


#40Xr 


#C3X, 


#03X, 


#C1X, 


#E4X, 


#E2X, 


#C5X^ 


#6EX, 


#4CX, 


#E3X, 


#C1X, 


#C2X, 


#D3X, 


#C5X , 


ft40X, 


#C8X, 


#C5X* 


#C1X, 


#C4X, 


#6EX, 


#C9Xt 


#D5X, 


#C4X, 


#C9X , 


#D9X, 


#C3X, 


#E3X j 


#E3X, 


#C1X, 


#C2X, 


#C3X, 


»C5X, 


# 4C X , 


#C6X, 


#C9X, 


#C5X, 


#D3Xi 


#C4X, 


#4CX, 


#C4X, 


#C5X, 


#C3X , 


#D3X, 


#6 EX, 


#4CX, 


#C9X, 


#E3Xi 


#C5X, 


#D4X, 


#60X , 


#C 1 X , 


#09X, 


#C5X, 


#CiX, 


#4CX, 


#C3X, 


#D3X, 


#C1X, 


#E4X, 


#E2X, 


#C6X, 


#6 EX , 


#4CX, 


#E2X, 


#E4X, 


#C2X, 


#E3X, 


#C1X, 


#C2X, 


#03X, 


#C5X, 


#40X, 


#C3X, 


#03X , 


#C1X , 


#E4X, 


#E2X, 


#C5X, 


#6 EX, 


#C6X, 


#C9X, 


#C5X, 


#D3Xr 


#C4X, 


#4CX, 


#C6X, 


#C9X, 


#E3X, 


#C5X, 


#04X, 


#6EX, 


#4CX , 


#D9X, 


#C5X , 


^C7X, 


#C5X, 


#E3X, 


#C9X, 


#E3X, 


#C9X, 


#D6Xi 


#D5X, 


#4 0 X , 


#D3X, 


#C9X , 


#E2X, 


#E3X, 


#6EX, 


#C9X, 


#£3X, 


#C5X, 


#D4X, 


#6CX, 


# C 1 X 7 


^D9X, 


^#C5X, 


#C1> , 


#E2X, 


#E4X, 


#C2X, 


# E5 X , 


#CiX, 


#C2X, 


#D3X , 


#C5X ) 









ARRAY 0085 INTEGER 6LOCLENGTH= (#0000000A» /^CCCCC283, f^00C0CEC6, 
#00001041, #00001781, #00001009, #00001544, #00002701, 

#000.02941, #00002981, #00002902, #CCCC2EC8, #00003209 , 

#0000350/r, #0000378A, #00003AOA, #0CCC3C8A, #CCC03FCA, 

#GC00418E, #00004500, #00004846, #00004906, #00004647, 

#00005001, #U0005ECF, #00006909, #0CCG6EC4, #0CC06FC7, 

#00007005, #00007205, #00007344, #00007444, #00007547, 

#O0CO7AC6, #00007051 , #000C858F , #0(JCC894F , #00009004, 

#00009105, #00009305, #00009443, #O0CC9506, #CCC0A581, 

#0000AC47, #OOOOAE05, #00006605, #00000249, #00000488, 

#00000346, #00000402, #00000948, #CCCCCCC6, #00001090, 

#00001480, #00001701, #00001F4A, #00002106, #00002480, 

#00002805, #U0002A4F, #00003008, #00004010, #00005106, 

#00005292, #00005700, #000G5ACF, #00006101, #00006600, 

#00006646, #0UCQ770F, #0000808A, #00C0830A, #0CC08D0F, 

#00009660, #0000S9CA, #00009040, #O0C09F4D, #0Q00A28C, 

#00Q0A5CE, #0000a94C, #0000AF4C, #00006252, #00008601, 

#00006047, #00008611 ) ; 

CC^^ENT THE DPDA HAS 0108 READ STATES; 

ARRAY 0108 SHORT INTEGER BREAOSTART= (#0000S, #0C02S, #0008S, #OOOAS, 
#0010S, #00155, #00185, #OOIAS, #00iCS, #001ES, #CC20S, 

#00225, #002AS, #0Q2CS, #002ES, #Q032S, #00355, #0C39S, 

#0C3BS, #G03E5, #CC46S, #00495, #00465, #00485, #0C4FS, 

#00535, #00565, #00585, #00615, #006AS, #00605, #C‘C6ES, 

#00775, #00795, #00825, #00845, #00865, #00885, #008AS, 

#00805, #008ES, #00915, #00935, #00955, #00985, #009AS, 

#00905, #00A0S, #00A3S, #00A5S, #00A7S, #OOACS, #00AES, 

#OCdOS, #00825, #00865, #00695, #00015, #00035, #0UC5S, 

#00075, #00095, #00CCS, #OOCFS, #00015, #00045, #G0D6S, 

#00095, #-00085, #0UE4S, #00665, #006FS, #00F1S, #0CF3S, 

#0CF5S, #00F7S, #0CF9S, #OCFBS, #00F6S, #OOFFS, #01075, 
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#01095, #010ES, #01105, #01125, #01145, #01165, #01185, 
#011A5, #01105, #C11FS, #01215, #01235, #01265, #01285, 
#012A5, #01205, #012E5, #01205, #0122S, #01355, #013E5, 
#01415, #01435, #01455, #01405, #0141=5, #01515); 



ARRAY 0108 BYTE BRDNUM = (#0iX, 


#05X, 


#01X, 


#C5X, 


#04X, #02X, 


#01X, 


#01X, 


#01X, 


#01 >, 


#01X, 


#0 7 X , 


#0 IX, 


^OIX, 


#04X, #01X, 


#C2X 


#01X, 


#C2X, 


#G7X, 


#02X, 


#01X, 


#01X , 


#CIX, 


#03X, #02X, 


#01X 


#08X, 


#06X, 


#01X, 


#01X, 


#08X, 


#01X, 


#C8X, 


#01X, #01X, 


#C1X 


#0iX, 


#C1-X, 


#01X, 


#02X , 


#01X, 


#01X, 


#02X, 


#01X, #02X, 


#02X 


#02X, 


#ot-x, 


#0 IX, 


'#04X , 


#GIX, 


#01X, 


# C 2 X , 

#clx. 


#02X, #02X, 


#07X 


#UIX , 


#01X, 


#01>, 


#01X, 


#C2X, 


#02X, 


#02X, #0iX, 


#C2X 


#01X , 


#08X, 


#01X , 


# 0 8 X , 


#01X , 


#01X, 


#C1X , 


#01X, #01X, 


#0 IX 


#0 IX, 


#0 IX, 


#C7X, 

#02X, 


#0 1X, 


#04X, 


#0iX, 


#C IX, 
#01X, 


#01X, #01X, 


#01X 


#01X, 


# 0 IX , 


#0 1 X , 


#01X, 


#02X, 


#01X, #01X, 


#C1X 


#01X, 


^#01X, 


#02>, 


#08X, 


#02X, 


#0iX , 


#01X, 


#07X, #01X, 


#01X 


#0 2X) 


f 















ARRAY 0340 BYTE 65YMLIST = (#01)(, #CQX, #05X, #CBX, #14X, #15X, #16X, 



#0 0X, 


#0 IX, 


# 0 ox , 


#1AX, 


#2gX, 


#29X, 


# 2 B X , 


#20X , 


#ocx. 


#C3X, 


#07X, 


#09X, 


#0A X , 


#OCX , 


#04X, 


#05X , 


flpOX, 


#06X, 


#ocx, 


#C2X, 


#oox, 


#C3X, 


#oox. 


#oox. 


#0CX , 


#07X , 


#CCX , 


#iex, 


#1CX, 


#1CX, 


#1EX, 


#1FX, 


#20X, 


#2TXi 


#0GX, 


#02X, 


#CCX, 


#06X, 


#ocx, 


#C6X, 


#18X, 


#24X, 


#2AX, 


#OCX , 


#06X, 


#00X , 


#2CX, 


#2EX, 


#2FX, 


#00X, 


#06X, 


#00X, 


#C4X, 


#0 8X , 


#OCX, 


# IBX, 


#1CX, 


#IDX, 


#1EX, 


#IFX, 


#2 ox. 


#21X, 


#00X, 


#07X , 


#08X, 


#pOX, 


#2CX, 


#ocx, 


#06X, 


#CCX, 


#04X, 


#00X, 


# C 8 X , 


#09X , 


#OAX, 


# 0 OX , 


#C8X , 


#OAX , 


#00X, 


#08X, 


#00X, 


#OCX, 


#ODX, 


#OEX, 


#GFX, 


#10X, 


#1 IX, 


#12X , 


#13X, 


#CCX, 


#00X, 


#UDX, 


#OEX, 


#OFX, 


#iOX, 


#IiX, 


#12X, 


#13X, 


#ocx. 


#C6X, 


#OOX, 


#03X, 


#CGX, 


#OCX, 


#ODX, 


#uEX , 


#OFX , 


#10X, 


#11X, 


#12X, 


#13X, 


#OOX, 


#03X, 


#00X, 


#00X, 


#OOX, 


#C£X, 


#OFX, 


#1CX, 


# 1 1 X , 


#12X, 


#13.X, 


#QOX, 


#06X , 


#oox. 


#07X , 


#OCX, 


#07X, 


#oox. 


#C7X, 


#OCX, 


#C7X, 


#COX, 


#07X , 


#oox , 


#04X, 


ucexi 


#OGX, 


#C7X , 


#GCX , 


#03X, 


#OOX, 


#03X, 


#08X , 


#oox. 


#17X, 


#ccx. 


#04X, 


#Cr8X, 


#ccx. 


#04X, 


#08X, 


#00X, 


#06X , 


#07X , 


#OGX, 


#18X, 


#00X , 


#2AX, 


#oox, 


#0 6X, 


#18X, 


#24X, 


#2AX, 


#ocx. 


# 17X , 


#ccx. 


#19X, 


#00X , 


#03X, 


#06X, 


#00X, 


#03 X, 


#G8X , 


#0QX, 


#o4x , 


#C8X, 


#OCX, 


# IBX, 


# lOX, 


#1DX, 


#1EX, 


# IFX, 


#2’0X, 


#21X, 


#oox , 


# 0 6X , 


#00X , 


#06X, 


#ocx. 


#07X, 


#OOX, 


#03X, 


#00X, 


#18X, 


#27X , 


#ccx. 


#18X, 


#27X, 


# C C X , 


#06X, 


#00X, 


#07X, 


#oax , 


#00X , 


#03X , 


rf 0 CX , 


#08X, 


#OAX, 


#ccx, 


#0£X, 


# G OX , 


#CCX, 


#0DX, 


#0EX, 


#OFX, 


# ICX , 


#11X, 


#12X, 


#13X, 


#00X, 


#oex. 


#00X, 


#ocx, 


#CCX, 


#OEX, 


ACFX, 


#1CX, 


#11X, 


#12X, 


#13X, 


#oox. 


#06X, 


#oox , 


#iax , 


#00X , 


«18X, 


#00X, 


#18X, 


#00X, 


#18X, 


#oox, 


# 18X, 


#OQX, 


#22X, 


#oux , 


# 2 2X , 


#cox. 


#L8X , 


#22X, 


#23X, 


#24X, 


#25X, 


#26X , 


#27X, 


#oox. 


#03X, 


#ocx. 


#,0 6 X , 


#1£X, 


#24X, 


#2AX , 


#00X, 


#18X , 


#OCX, 


#05X , 


#CCX , 


#18X, 


#00X, 


#03X, 


#00X, 


# irx, 


#00X, 


#06X, 


#OCX , 


#03X , 


#ccx , 


#18X, 


#27X , 


#CCX, 


#07X, 


#oox. 


#24X, 


#oox , 


# 1 8 X , 


#27X, 


#ccx. 


#0 8X, 


#00X, 


#C4X, 
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ARRAY 



#OCX, ^l^oex, #CCX, #04X, #OCX, ^04X, ^CCXf #04X, iftJOOXf #03X, 
#08X, #OOXf i!f!07X, i^l8X, »22X, #23Xt ^24X, #25X, #26X, #27X, 
#OCX, #16X, #27X, #OOX, #08X, ^fOOX , j^l8X, #OOX , #18X, ^^22X, 
jS^23X, #24X, #23>, #26X, #27X, #OOX, #C7X, #OOX, #04X, #OCX, 
#04X, #0&X, #OOX); 



0340 SHORT 
#00065, 
#023ES, 
#001CS, 
#06FFS, 
#0C21S, 
#022FS, 
#00305, 
#00385, 
#00305, 
#022FS, 
#06FFS, 
#00105, 
#02175, 
#021ES, 
#02105, 

# 0 6 F F 5 , 
#02105, 
#02195, 
#02165, 
#06FFS, 
#06FFS, 
#06FFS, 
#00515, 
#02405, 
#00545, 
#02565, 
#00245, 
#025F5, 
#06FF5, 
#02545, 
#00465, 
#02195, 
#00475, 
#02105, 
#06FF5, 
#00625, 
#02385, 
#02245, 
#02485, 

# 06FF 5 , 
#02305, 



INTEGER 

#00075, 

#00115, 

#00105, 

#02205 , 

#06FF5, 

#00295, 

#002F 5 , 

#00395, 

#06FF5, 

#00295 , 

#02535, 

#06FF5, 

#02185, 

#06FF5, 

#02105 

#02175 

#021E5 

#021AS 

#06FF5, 

#■00465 , 

#004ES, 

#004F5, 

#06FF 5 , 

#06FFS, 

#06 F F 5 , 

#00575, 

#00255, 

#06FFS, 

#02305 , 

#06FF S , 

#00 105, 

#021 A5, 

#06FF5, 

#02105, 

#005F5, 

#C6FF5, 

#02365 , 

#06FF5, 

#06FF5, 

#00t)45 , 

#02305, 



BSTATELIST = (#00015, 
#00085, #06FFS, #02635 
#00165 



#00155, 

#06FF5, #00165 
«06FFS, #02215 
#00235, #00245 
#06FF5, #002A5 
#024A5, #02405 
#C03A5, #06FFS 
#00235, #00245 
#CcFF5, #00365 
#06FF5, #00415 
#00465, #00105 
#02195, #021A5 
#02175, #02185 
#021E5, #06FF5 
#02185, #02195 
#06FF5, #021F5 
#02105, #02105 
#00485, #06FFS 
#05FF5, #00405 
#06FF5, #02025 
#06FF5, #00505 
#00525, #02425 
#00305, #00535 
#00555, #06FFS 
#C6FF5, #00585 
#00265, #00275 
#005AS, #06FFS 
#02305, #06FF5 
#00505, #0C3F5 
#06FFS, #00475 
#02165, #02165 
#02175, #02185 
#021FS, #06FFS 
#06FPS, #00605 
#02325, #06FFS 
#02375, #022AS 
#00305 , f^0C53S 
#00525, #06FFS 
#06FF5, #02605 
#G6FF5, #00655 



#06FFS 
#001FS 
#06FFS 
#00255 
#06f FS 
#06FFS 
#003 6 5 
#00255 
#003F5 
#06FF5 
#06FFS 
#02 lES 
#02195 
#02125 
#02 IAS 
#06FFS 
#02165 
#00495 
#06FFS 
#06FFS 
#024 IS 
#06 F FS 
#024 AS 
#02555 
#00595 
#022 FS 
#00565 
#02365 
#06F FS 
#06F F 5 
#02165 
#02 195 
#02135 
#06FFS 
#02315 
r^022ES 
#02445 
#0U63S 
#06FFS 
#06FFS 



#06FFS, 

, 3^#06FFS 
, #02035 
, #C6FFS 
, #02065 
, #00265 
, #03045 
, H0033S 
, #06FFS 
, #00265 
, #06FFS 
, #C044S 
, A0047S 
, #02105 
, i<^C21AS 
, #06FFS 
, #C21BS 
, Mozns 
, #02165 
, #06FFS 
, #02305 
, #02235 
, #C6FFS 
, #02495 
, #C24CS 
, #C30AS 
, #06FFS 
, #00295 
, #C6FFS 
, #02305 
, #02045 
, #02175 
, #02165 
, #021AS 
, #C6FFS 
, #00615 
, #06FFS 
, #02305 
, #02405 
, #06FF5 
, #02575 
, #00665 



#00095, #OCOBS 
, #00135, 

, #001ES, 

, #00205, 

, #06FFS, 

, #00275, 

, #06FFS, 

, #06FFS, 

, #00305, 

, #00275, 

, #00165, 

, #00105, 

, #06FFS, 

, #021t:s, 

, #02165, 

, #02055, 

, #02105, 

, #02185, 

, #06fFS, 

, #004AS, 

, #004DS, 

, #02285, 

, #02455, 

, #06FFS, 

, #06FFS, 

, #06FFS, 

, #00235, 

, #06FFS, 

, #02465, 

, #06FFS, 

, #06FFS, 

, #02185, 

, #C6FFS, 

, #021BS, 

, #00565, 

, #06FFS, 

, #02305, 

, #06FFS, 

, #06FFS, 

, #02265, 

, #06FFS, 

, #06FFS, 
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#023DS, #023CSt #06FHS 
#0C67S, #06FFSf #022CS 
#06FFS, J^0225S, ^023FS 
#02365, #02375, #023AS 
#023C5, #06FF5, #02405 
#02355, #02365, #02375 
#02505, #06FF5, #022B5 



#00475, #06FF5, #022A5, #06FFS, 
#06FF5, #022CS, #06FF5, #022ES, 
#06FF5, #025CS, #02305, #02385, 
#02365, #023CS, #06FF5, #02305, 
#06FFS, #006AS, #06FF5, #02305, 
#023A5, #02365, #02305, #GtFF5, 
#06FF5, #02565, #025 E5 , #06 FF5 ) ; 



CC^^E^T THE DPDA HA5 00^9 REDUCE STATE5; 



ARRAY 0100 BYTE 


BNUMTGPCP 


= (#00> 


, #cox 


, #03X 


, #01X 


, #03X 


, #02X 


, #01X, 


#02X, 


#0 IX, 


#01X, 


#0U, 


#00X, 


#00X, 


#ccx. 


#01X, 


#02Xt. 


#C1X, 


#02X , 


#01X, 


#02 >, 


#02X , 


#02X , 


#02X T 


#ccx, 


#oox, 


# 0 0 X , 


#ccx, 


#0CX, 


#OCX, 


#OU^r 


#00X, 


#02XS 


#01X, 


#0 IX , 


#0 IX , 


#02X, 


#03X, 


#04X, 


#03X, 


#00X, 


#02X, 


#0 i X , 


#03X, 


#C5X, 


#03X, 


#C3X, 


#C3X, 


#00X, 


#01X, 


#02X, 


#02X , 


#00X, 


#02X, 


#UCX, 


#oox. 


#00X, 


#oox, 


#OCX, 


#oox, 


#UOX, 


#OUX , 


#0CX r 


#00X, 


#c^x, 


#04X, 


#C2X, 


# 0 1 X , 


#01X, 


#02X , 


#01X, 


#OQX, 


#00X, 


#02X, 


#C1X, 


#0CX, 


#0GX , 


#ccx. 


#0U , 


#02X, 


#01X, 


#02X , 


#03X, 


#02X , 


#CIX , 


#02X, 


#01X, 


#0 IX, 


#0 2X, 


#0 IX , 


#0 IX, 


^ #00X, 


#04X4 


#00X, 


#C IX, 


# 0 ^ X , 


#01X , 


#C2X, 


#oax. 


# 02X, 


#02xr 


, 















ARRAY 0100 SHORT 


INTEGER 


BREDUCESUCC = (#63FCS , 


#00025, 


#00025 , 


#02015, 


#02015 , 


#02015, 


#00045, 


#00175 , 


#00175, 


#00175, 


#00175, 


#00175, 


#00175 , 


#00175, 


#03015 , 


#03015 , 


#05005, 


#05005, 


#05015, 


#05015 , 


#00055 , 


#00055, 


#000AS, 


#05025, 


#05025, 


#03025 , 


#0502 5 , 


#05025, 


#0 5 0 2 S , 


#05025, 


#05025, 


#00035, 


SU0035 , 


#00035 , 


#00035, 


#03CCS , 


#03005 , 


#03005 , 


#03005, 


#00005 , 


#00005 , 


#02275, 


#05035, 


#05035, 


#05035, 


#05025, 


#05035, 


#05035 , 


#05035, 


#00285 , 


#00285, 


#05045 , 


#05045, 


#05055 , 


#05055, 


#05055, 


# 0 5 C 5 S , 


#05055, 


#02395 , 


#02395, 


#05065 , 


#05065, 


#000FS, 


#OOCFS , 


#000ES, 


#OCCES, 


#00325, 


#002ES, 


#002ES , 


#02465, 


#002CS , 


#00205 , 


#05075 , 


#05075, 


#05075, 


#05075 , 


#02055, 


#03055, 


#00105, 


#00105, 


#00125, 


#u012 S , 


#00125 , 


#05085 , 


#05085 , 


#03065, 


#03065, 


#03065, 


#00355, 


#00355 , 


#02595, 


#02595 , 


#00685 , 


#00685 , 


#00685, 


#00365 , 


#003b5 , 


#00375, 


#00375, 


#07005 ) 


, 



COMMENT THE DPDA HAS 0013 kGQK AHEAC STATES; 



ARRAY 0013 BYTE BLASYMMN = (#32X, #35X, #35X, #35X, #3EX, #^BX, #42X, 

#35X, #35X, #35X, #3EX, #35X, #46X) ; 

ARRAY 0013 SHORT INTEGER BSUCCSTATE = (#Q222S, #02065, #02005, #02005, 
#02335, #02465, #024F5, #02085, #02055, #020AS, #02335, 
#02075, #02355); 

ARRAY 0013 SHORT INTEGER BFAiLSTATE = (#00005, #00185, #00195, #001AS, 




6^ U 



#002CS, #00315, #00345, #00425, #00425, J5I00455, #00565 
#00505, #00695); 

ARR;\Y 0078 BYTE BLATABLE = ( 

COMMENT <DATA DECL>; 



#00X, #00X, #00X, #20X, 


#0CX, 


#D8X, 


COMMENT <FPARM LIST>; 
#08X, #00X, #CQX, #00X, 


#OCX, 


#00X, 


COMMENT <FPARM LIST>; 
#08X, #00X, #00X, #00X, 


#00X, 


#COX, 


COMMENT <FPARM ,LIST>; 

#oax, #oox, #oo>, #oox. 


#oox. 


#oox, 


COMMENT <ITEM>; 

#12X, »8CX, #00X, #00X, 


#ocx. 


#oox. 


COMMENT <OESCRIPTQR> ; 

# 08 x, #eox, #cox, #oox, 


#oox, 


#cex. 


COMMENT <TABLE DECL HEAD>; 
#00X, #00X, #C0X, #OQX, #00X, 


#0?X , 


COMMENT <FPARM LIST>; 
#08X, #00X, #CC>, #00X, 


#ocx. 


#oox. 


COMMENT <FPARM LIST>; 
#08X, #00X, #COX, #00X, 


#OCX, 


#oox. 


COMMENT <FPARM LIST>; 
#08X, #00X, #C0>, #00X, 


#ocx , 


#00X, 


COMMENT <ITEM>; 

#i 2 x, »aox, #cox, #oox, 


#ocx , 


#oox. 


COMMENT <FPARM LIST>; 
#08X, #00X, #COX, #00X, 


#ocx , 


#00X, 


COMMENT <CONSTANT>; 
#iAx, #80x, #0Qx, #ogx. 


#OOX , 


#oox) ; 



COMMENT THE DPDA HAS 0009 LOOKBACK STATES; 

ARRAY 0009 BYTE BLBSTART = (#00X, #0?.X, #06X, ACCX, #OFX, #liX, 



3^I13X, 
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fS^lAX, ^S^lOX) 



ARRAY CC09 BYTE BLBNUM = [^OIX, n03Xf #05X, ^C2X, #01X, nOlX, 406^, 
U02Xf #01X1; 

ARRAY 0031 SHORT INTEGER BLESTATE = (#0004S, ^OCOOS, #0004S, #C01£S, 
#00195, #COOOS, #00LBS, #OCICS, #0GIFS, #0021S, #0C44S, 

#00005, #OOOBS, #00135, #00005, #OOCCS, #00005, #00685, 

#00005, #00305, #G03ES, #00595, #00505, #00645, #00655, 

#00005, #000£S, #00325, #00005, #00025, #00005); 

ARRAY CC31 SHORT INTEGER B RESUN, E5T AT E = (#03025 , #03075, #03035, 

#03085, #03095, #03085, #02CES, #02105, #02155, #02145, 

#U20FS, #02115,. #00225 , #02295, #02565 , #00265, #025AS, 

#00685, #023^15, #02525 , #02505, #02625 , #02515 , #03005, 

#02615, #02355, #02475, #02A2S, #02^^S, #00145, #00405); 

COMMENT THE SYMBOLS ACCESSING THE STATES; 

ARRAY 0108 BYTE C5 YMB E ECR ER EAO = (#00X, #OiX, #30X, #32X, #34X, #36X, 

-t» I /- 1 rr V/ 1 w rr w j; i*. w jf o vy j/ -i \y jy v/ jj r- v> .n y i v> 



#14X, 


# 15X, 


# 16X, 


#05X, 


#3BX , 


#03X, 


#33X, 


#3DX , 


#3FX, 


#41X, 


# 4 2 X , 


#29X, 


#4 EX, 


#1AX, 


#4FX , 


#2oX, 


#2CX, 


#35X, 


#37X, 


#38X , 


#39X, 


#07X, 


#09X, 


#0AX , 


#04X , 


#08X , 


#06X, 


#07X, 


#3 C X , 


#iex, 


#iCX, 


#IDX, 


# lEX, 


#IFX , 


#45X, 


#21X, 


#C2X, 


#3EX , 


#06X , 


#4CX, 


#4AX , 


#18X, 


#06X, 


#4DX, 


#49X, 


#06X, 


#42X, 


#5CX, 


#51X, 


#52X, 


#2DX, 


#2EX, 


#2FX, 


#06X , 


#04X , 


#08X, 


#C7X , 


#08X, 


#4FX, 


#04X, 


#38X, 


#39X, 


#08X, 


#39X, 


#08X, 


#C8X, 


#C7X, 


#07X, 


#07X, 


#07X, 


#07X, 


#08X, 


#07X, 


#17X, 


#04X, 


#OSX , 


#06X, 


#18X, 


#17X, 


#19X, 


#06X, 


#08X, 


#04X, 


#Q8X , 


#06X, 


#07X, 


#07X , 


#39X, 


#18X, 


#18X, 


#18X, 


# 18X, 


# 18X, 


# i 8 X , 


#17X, 


#07X , 


#24X, 


#08X, 


#54X, 


#47X, 



#18X, #46X) ; 

ARRAY 0013 BYTE DSYMBEFORELA = 1#32X, #37X, #26>, #39X, #06X, #4CX, 
#43X, #38X, #39X, #39X, #06X, #39X , #47X); 

CLOSE BASE; 

ARRAY 18 INTEGER BSEGTABLE = ( 

# 00000000 , 

#000003iC, 

#CCCCC470, 

#00000548, 

#00000564, 

#0CCCC708, 

#00000960, 

#OOO.OOA14, 

#0C0CCADC, 

#OOOOOAEA, 




#0C000B04, 

Jf/SQCOCOBIE, 

#OOOOOB6Cr 
#CC00CB75, . 

#0C00CB7E, 

#000006BCf 
#CCCCC8FA, 
ji^OOO.OGC66) ; 

CCNI^EM EMC OF CARDS PUNCHED BY THE SLR(l) SYNTAX ANALYZER; 



CC^^'E^'T DECLARATIONS USED BY THE ANALYZER; 

INTEGER TOKEN=i; COMMENT TOKEN IS PCINTER PRCVIDED BY TEE SCANNER. IT 

HAS THE VALLE OF THE INDEX IN THE TERMINAL 
SYMBOL LIST OF THE LAST SYMBOL SCANNED; 
INTEGER BTOKEN; COMMENT SAME AS ABOVE BUT FCF CATA DECL. GRAMMAR; 
INTEGER PRCONUM; COMMENT PRODUCTION NUMBER USED TC IDENTIFY PROCLCTION 

UHEN CALLING SYNTHESIZE; 

INTEGER BPROCNUM; COMMENT SAME AS ABOVE BUT FCF BSYNTHESIZE; 

INTEGER SP=0; COMMENT POINTER TO LAST SYMBOL IN STATESTACK ; 

INTEGER BSP; COMMENT SAME AS ABOVE ELT FOR EANALYZE; 

INTEGER LOCATION; COMMENT INDEX TO VSTRING CF SYMBOL*, 

INTEGER length; COMMENT NUMBER OF BYTES IN SYMEOL; 

INTEGER VPT; COMMENT INDEX SAME AS TGKEN USED k^HEN CALLING "FIND**; 
INTEGER SEGBASE; COMMEiNT BASE ADDRESS OF PARSING TABLES; 

INTEGER B5EGBASE; COMMENT BASE ADDRESS OF PARSING TABLES OF DATA 

DECLARATION GRAMMAR; 

INTEGER LATABSIZE; COMMENT LOOK AHEAD TABLE SIZE; 

INTEGER BLATABSIZE; COMMENT SAME AS ABOVE BUT FCR BANALYZE; 

ARRAY 64 BYTE BCD; COMMENT BUFFER USED TO STORE CURRENT SYMBOL; 

ARRAY 8 BYTE CONBUF; COMMENT BUFFER USED IN PR INT IME , PRINTSUMMARY 

AND PRINTDATE RCLTINES; 

ARRAY 3 INTEGER TIME; COMMENT SAME AS ABOVE; 



INTEGER MASK = ^OCOOOCFF; 

INTEGER MASK7 = #00000007; 

INTEGER MASKFFFF = #OOOOFFFF; 

INTEGER BLANKMASK = #404C4040; 

INTEGER MASK! = #00000001; 

INTEGER MASKFFOO = #OOCCFFOO; 

COMMENT DECLARE USEFUL LITERALS TO SIMPLIFY 
ACCESSING THE PARSING TABLES; 

ECLATE >\VSTRING SYN 0; 

EQLATE ALOCLENGTH SYN 4; 




EQUATE ARE/iCSTART SYN 8; 

ECIATE ARCNUM SYN 12 

EQLATE ASYMLIST SYN 16 

EGLATE ASTATELIST SYN 20 

ECLATE ANLMTOPOP SYN 24 

EQLATE AREDUCESUCC SYN 28 

ECLATE ALASYMNUM SYN 32 

EQLATt AStCCSTATE SYN 36 

EQLATE AFAILSTATE SYN 40 

ECLATE ALATAbLE SYN 44 

EQLATE ALBSTART SYN 48 

ECLATE ALBNUM SYN 52 

ECLATE ALBSTATE SYN 5o 

EQLATE ARESU.MSTATE .SYN 60 

ECLATE ASYMBEFOREREAC SYN 64 

ECLATE BSYMBEFORELA SYN 68 

BYTE TRUE=//FFX, FAL SE = j<^00X ; 



COMMENT SCANNER DECLARATIONS; 

BYTE IDI SLBL = #00X; COMMENT WHEN ICISLBL IS SET IDENTS ARE TREATED A~S 

LABELS ; 

BYTE PCAL = /^OOX; COMMENT WHEN PCALL IS SET THE IDENT THAT FCLLCWS IS 
K A PRCCEOLRE NAME; 

^ BYTE ENDIT = if^OCX; COMMENT ^vHEN ENDIT IS SET SCANNER'S CLTPUT IS 

ALWAYS TQKEN=l; 

BYTE B£NDIT=#COX; COMMENT BENOIT IS SET BY "ENC CD", "PROCEDURE" AND 

"FUNCTION". WHEN BENDIT IS SET "$" SETS ENDIT. 

BOTH ENDIT AND BENCH ARE RESET UPON RETURN FRCM 
3ANALYZE. ; 

BYTE LISTFLAG=^^FFX ; COMMENT LISTING PRODUCED IF LISTFLAG IS SET; 

ARRAY 80 BYTE CBUF; COMMENT INPUT C/3RD BUFFER; 

ARRAY 132 BYTE BLANK=132(" ; COMMENT BLANK STRING USED TC CLEAN 

THE WRITE BUFFER; 

ARRAY 132 BYTE WBUF=132(" COMMENT WRITE BUFFER; 

SHORT INTEGER C ARDCOLNT= IS ; COMMENT NUMBER CF CARDS READ BY GETCHAR; 
LCNG REAL CCNWORK; COMMENT DOUBLE WORD BUFFER USED TO CONVERT TO 

DECIMAL; 

SHORT INTEGER CP=10; COMMENT CP IS POINTER TO NEXT CHARACTER TC 

BE SCANNED; 

BYTE CHAR; COMMENT SINGLE CHARACTER BUFFER; 

SHORT INTEGER CLASS; COMMENT CHARACTER CLASS RECEPTACLE; 

ARRAY 22 BYTE SBUF; COMMENT BUFFER USED BY SCANNER TO ASSEMBLE 

SYMBOLS: 

SHORT INTEGER SPTR; COMMENT INDEX IN SBUF CF LAST CHARACTER INSERTED 
; SHORT INTEGER XR; COMMENT ERROR NUMBER WHEN CALLING THE ERROR 

PROCEDURE; 
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SHORT INTEGER ERRCOUM^O; COMMENT ERROR COUNTER; 

ARR/5\ 250 BYTE CHARCL ASS= ( 75( # lAX) , #08X • ^CBX , 12X , # 14X , 

#19X,#01X,10(^^1AX),#10X,#0CX,#13X,#18X,#09X, 1 5X , # 16X, 9 ( # lAX ) ,#llX,#OC.Xf 

?^C5X,#CAX,11(#1AX) ,i^lBX,#06X,#07X,#OFX,#l7Xf #0EX,65(#1AX),6(#04X), 

3( «C5X ),7(#iAX) ,9(#05Xi ,8( ^lAX) , 8(j!^05X) ,6(# lAX) , £( #02X) ,2(#03X) ) ; 

INTEGER RTRNTOANAL; COMMENT RECEPTACLE FOR RETURN ADDRESS IvREN ANALYZE 

CALLS SCAN; 

INTEGER BANALEASEf SCANBASE; COMMENT ENTRY POINT RECEPTACLES USED WHEN 

SCAN CALLS 6ANALYZE; 

COMMENT SYMBOL TABLE AND CONSTANT TABLE STRUCTURE DECLARATIONS; 

-’INTEGER STBASE, STLENGTH, CTBASE, STLIMIT, SEMEASE, STCHAINEASE; 
COMMENT STBASE IS BASE ADDRESS OF SYMBOL TABLE, IT ALSO IS BASE ACCRESS 
OF IDENTIFIER NAMES FIELD IN SYM . TBL. CTBASE IS BASE ADDRESS OF 
CONSTANT TABLE. SEM8ASE IS BASE ADDRESS OF SEMANTICS FIELD. STCHAIN IS 
BASE ADDRESS OF FIELD WITH POINTERS TO NEXT AVAILABLE SYMEOL TABLE SLOT 
IN CASE OF COLLISION; 

INTEGER CTLIMIT; COMMENT ABSOLUTE ADDRESS LIMIT OF CONSTANT TABLE; 
INTEGER DESCRPTREAS E ; COMMENT EASE ADDRESS OF POINTER TO DESCRIPTOR 

FIELD IN SYMBOL TABLE; 

SHORT INTEGER DPTR=OS; COMMENT INDEX TO DESCREUF OF NEXT BYTE TO BE 

LOADED; 

SHORT INTEGER TYPLGTH; COMMENT TEMPORARY LOCATION USED EY DATA 

DECLARATION SEMANTIC RCLTINES; 

SHORT INTEGER OATABUF; COMMENT DATA TYPE BUFFER; 

SHORT IN^TEGER CTR; COMMENT COUNTER USED IN SEVERAL PLACES IN SEMANTIC 

ROUTINES; 

BYTE TYPE; COMMENT, TYPE IS USED TO CHECK FOR C CM FAT I B I L IT Y DORING 
ASSIGNMENTS; 

SHORT INTEGER TBLDESCR6; COMMENT TABLE DESCRIPTOR BV\SE ADDRESS IS 

STORED HERE IN TABLE DECLARATION SEMANTIC 
ROUTINES ; 

SHORT INTEGER FLEPTR=CS; COMMENT INCEX TO FLDPTRSBUF OF NEXT ^YTE 

TO BE LCACEC; 

BYTE FIRSTVAL = ^OOX; COMMENT FLAG USEC IN R ET> E T I T I C^N LIST PROCESSING 

ROUTINES TO ICENTIFY FIRST VALUE IN LIST ; 

ARRAY 80 BYTE FLDPTRSBLF; COMMENT BLFFER TO STORE POINTERS TO FIEJ_0 

DECLARATION ENTRIES iTv THE IDENTIFIER 
CIRECTORY CURING TABLE DECLARATION BLOCK 
PROCESSING ; 

ARRAY 20 SHORT INTEGER TBLIST; COMMENT BUFFER TO STORE TABLE NAMES 

DURING TABLE FEAi: PROCESSING; 

SHORT INTEQER TBLISTPTR=C; COMMENT INDEX iNTC TBLIST; 

SHORT INT-EGET^ BLKCTR = 0; COMMENT ELCCK LEVEL, COUNTER USED AS A PREFIX 

TO IDENTIFIERS TO INTRODUCE BLOCK 




STRUCTURE INITt! SYMBOL TABLE = SCHEME ; 

SHORT INTEGER HTPTR; COMMENT INDEX INTO HASHT/CETE PRCCUCEC BY HASHING 

scheme; 

SHORT INTEGER STPTR; COMMENT SYMBOL TABLE INDEX; 

SHORT INTEGER CTPTR =0; COMMENT CONSTANT TABLE INDEX; 

SHORT INTEGER SEM; COMMENT SEMANTICS RECEPTACLE; 

SHORT INTEGER POINTER; COMMENT POINTER INTO SYMBOL TABLE OR CONSTANT 

TABLE ASSOCIATED WITH EACH CONSTANT 
OR IDENTIFIER; 

ARRAY 11 BYTE TEMPREFIX; COMMENT TEMPORARY BUFFER USED TO SET SBLF 

BEFORE HASHING RESERVED WORDS; 

ARRAY 10 BYTE PREFIX; COMMENT TEMPORARY BUFFER USED TO SET SBLF 

BEFORE HASHING IDENTIFIERS; 

SHORT INTEGER PO INT FR EE=_ 1 ; COMMENT POINTER TO NEXT AVAILABLE SLOT 

IN SYMBOL TABLE; 

GLOBAL DATA SEGN002 BASE R9; 

ARRAY 1229 SHORT INTEGER h AS HT BL= 1 229 ) ; COMMENT HASH TABLE; 

CLOSE BASE ; 

GLOBAL DATA SEGN003 BASE RIO; 

ARRAY 15a SHORT INTEGER PCI NTE RST ACK = 150 (0 ) ; COMMENT STACK USED BY 
ANALYZE TO PASS POINTERS TO SYNTHESIZE; 

ARRAY 150 SHORT INTEGER B PC I NT ERST ACK=150 { 0 ) ; COMMENT SAME AS ABOVE 

BUT FOR BANALYZE; 

ARRAY 256 BYTE DESCR6UFFER=256 ( X) ; COMMENT BLFFER TO BUILD UP 
DESCRIPTORS BEFORE LOADING THEM IN CCFSTATsT TABLE; 

CLOSE BASE; 

COMMENT BASE ADDRESS RECEPTACLES DECLARED TO FACILITATE USE OF ABOVE 
DECLARED ARRAYS; 

INTEGER PTRSTACK = #00000000 ; 

INTEGER BPTRSTACK=#0a00012C; 

INTEGER DESCRBUF=#0000025B; 

FUNCTION CLR(1 ,#1500) ; 

FUNCTION SD( 1C, i^^FBOO) ; 

FUNCTION SETZCNE(3,^9feF0>; COMMENT FUNCTION TO SET ZONE TO 1111; 
EXTERNAL PROCEDLi^E GE TC ORE ( R 14) ; NULL; 



PROCEDURE FIN0IR4) ; 

BEGIN ARRAY 4 INTEGER SAVEREGS; 

STM R1 ,R4,SAVEPEGS) ; 

MVCL63,BCD, BLANK ) ; 

R6 r= R6 - R6; R1 VPT SHLL 2; 

R3 ;= ALOCLENGTH; R2 := SEGBASE + SEGTABLE(R3) + Rl; 




R3 := 62; R1 := R3 SHRL 6; 

LCCATICK := Rl; R1 := R3 AND 
LENGTH := Ri; R2 := LENGTH l; 

FCR Rl := 0 STEP i UNTIL R2 DC 
BEGIN 

R3 LOCATION + Rl; I C ( R6 , VSTRI NG ( R 3 ) ) ; 

STC(R6tBC0(Rl ) ) ; 

END; 

LM(R1,R4,SAVEREGS ) ; 

END; CCNNEAT END OF FIND; 

PROCEDURE BFIND(R4); COMMENT SAME AS FIND BUT FCR SECOND GRAMMAR 
BEGIN ARRAY 4 INTEGER SAVEREGS; 

STMtRl ,R4,SAVEREGS1 ; 

MVCi 63 , BCD , BLANK) ; 

R6 := R6 - R6; Ri := VPT SHLL 2; 

R3 ;= ALOCLENGTH; R2 :=BSEGEASE +6SEGT AEL E (R3 ) + Rl; 

R3 := B.2; Rl := R3 SHRL 6; 

LOCATION := Rl; Rl := R3 AND n3F; 

LENGTH := Rl; R2 := LENGTH - l; 

FOR Rl := 0 STEP 1 LNTIL R2 DC 
BEGIN 

R3 : = LCCATIQN + Bl; I C ( R6 , EVS T R INC- ( R3 ) ) ; 

STC(RE,BCD(RU); 

END; 

LM(R1,R4, SAVEREGS) ; 

END; COMMENT END OF FIND; 

PRCCECLPE PRINTIME(R6) ; 

BEGIN INTEGER SAVE6; 

SAVE6 := R6; 

UNPK( 7,3,CQNBUF,TIME(0) ) ; 

MVC( 1,N-BUF( 18) ,CONBUF( 1) ) ; MVC ( 0,KBUF ( 20 
MVCI1,U3UF(21),CGN8UF(3)); 

RE ;= SAVE 6; 

END; COMMENT END OF PRINTIME; 

PRGCEDLRE P R I N TDATE ( R6 ) ; 

BEGIN INTEGER SAVE6, SAVE15; 

SAVED R6; SAVE15 R15; 

Rl := 2; SVC( 11) ; 

P15 := SAVE15; RG := RO OR #F ; 

TIME( C) := RO; 

TIME(4) ;= Rl; UNPK(7,3,C0NBUF,TIME{4) ) ; 

MVCU ,WBUF(9),C0NBUF(3) ) ; 

MVC(0,tvBUF( U) , " .") ; MVC(2 ,WEUF( 12) ,CCNBUF(5 ) ) ; 

R6 := SAVED; 

END; COMMENT END GF PRINTDATE; 
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PRCCECURE PRINTSUMMARY(R4) ; 

CCI^PEM THIS PROCEDURE SHOULD SUBTRACT CURRENT TIME OF DAY 
WITH THAT SAVED IN PROCEDURE INITIALIZE AND STCRE 
THE RESULT IN W6UF STARTING IN COLLNN 19; 

BEGIN INTEGER SAVE4; 

INTEGER SAVE15; 

SAVE15 := R15 ; 

'5AVE4 ;= R4; 

R1 := 2; SVC( 11) ; 

R15 := SAVE15 ; 

RO := RO OR TIME(8) := RO ; 

SD(3,3,TIME( 8),TIME(0) ); 

UNPK(7,3,CONBUF»TIM£(8)); MVC ( 1 ,W3U F ( 2 1 ) ,CONBUF ( 3 ) ) ; 

MVC( 0,WBUF ( 23) ; MVC ( 1, W8UF(24) ,CCNBUF (5 } ) ; 

MVC(6,W6UF( 28), "SECONDS") ; 

MVC( 17,WfiUF,»^TIME IN EXECUTION:"); RO := alWBUF; WRITE; 
MVC(4C,WBUF, BLANK) ,* 

R4 := SAVE4; 

ENX; COMMENT END OF PR INTSUMMARY ; 

PROCEDURE HASH(R4); COMMENT THIS HASHING SCHEME USES FIVE ARGUMENTS 

THE WORD LENGTH, THE SECCNC AND THIRD ANl THE 
LAST TWO CHARACTERS OF THE IDENTIFIER; 

BEGIN ARRAY 6 INTEGER SAVEREGS; STM( KO, R 5 , SA VEREGS ) ; 

R4:=SPTR; R1:=R4+1; 

1C(R0,SBUFU) ) ; RO:=RO AND f^3F SHLL 13; 

IC(R2,SBUF(2) ) ; R2:=R2 AND f^3F SHLL 12; 

IC(k3,SbUH( K4) ) ; R3: = R3 AND j^3F; R5: = R4-1; 

IC(R4,SBUF(R5) ) ; H4:=R4 AND ?/3F SHLL 6; 

Ri:=Rl SHLL 24 OR RO OR P2 OR R4 OR R3 ; 

R0j=0; R1:=R1/1229* 

HTPTR: = R0;'’C0MMENT *RO CONTAINS THE REMAINDER; 

LM.(R0,R5, SAVEREGS); 

END; COMMENT END OF HASH; 

PRCCECURE ERROR(R4); COMMENT THIS PROCEDURE HAS THE COMPLETE SET OF 

ERROR MESSAGES. MESSAGE IS SELECTED BY LOADING 
ERROR NUMBER INTO XR BEFORE AN ERROR CALL; 
BEGIN ARRAY 5 INTEGER SAVEREGS ; S T M ( RO , R4 , S A V ER EGS ) ; 

RO : = ERRCCUNT+1 ; ERRCOUNT : = RO ; 

COMMENT IF LISTING FLAG IS OFF, FORCE PRINTING OF CARD BUFFER; 

IF - LISTFLAG THEN 
BEG IN 

RC:=CARDCCUNT+l; CARCCCUNT :=RO ; 

CVD{RO,CONWORK ) ; UNPK I 3 , 7 , WBUF ( 15) ,CGNWCRK); 

SETZONE(WBUF(18 ) ) ; MVC 1 79 , WBUF ( 22 ) , CBU F ) ; 

RC :=aWBUF ; WRITE; MVC ( 131 , WBUF ,ELAM<) ; 




ENC; 

RO:=aWBUF; WRITE; MVC ( 13 1 , W BUF , B L ANK ) ; 

MVC( 8tWBUF ERRCR"); 

Rl:=CP + 22; R2:=aWBUF(Rll ; 

NVC(0,B2 f"| ») ; 

RG : = a WbUF; WRI TE ; f'. VC ( 13 1 , WBUF , B L A NK) ; 

P2:=XR; 

CASE R2 CF 
BEGIN 

NVU37,WBUF,'»ILLEGAL IDENTIFIER. IT WILL BE IGNORED"); 

NVC(36,weUF, "ILLEGAL CHARACTER. IT WILL EE IGNORED"); 

BEGIN 

MVC( 15, WBUF, "STACK OVERFLOW ." ) ; 

RO: = aWBGF; WR I TE ; . NVC ( 13 1 , WBUF , E LANK ) ; GCTC EXIT; 

END; 

NVC{19 fWBUF, "ILLEGAL SYMBOL PAIR:"); 

BEGIN 

MVC( 24, W6UF, "PROGRAM ENDS PREMATURELY."); 

Ra:=BWdUF; WRITE; MVC ( 13 1 , W Bti F , BLANK ) ; GOTO EXIT; 

END; 

MVC(79 ,WeUF,CBUF ) ; 

MVC (47 ,weUF , "ILLEGAL HEXADECIM/iL CONSTANT. IT WILL BE IGNORED"); 
BEGIN 

MVC(47,WBUF, "SYMBOL TABLE OVERFLOW. REMAINING STEFS CANCELLED"); 
R0:=3WaUF; WRITE; MVC ( 1 3 1 , W BU F , BLANK ) ; GCTO EXIT; 

END; 

MVC(44,WBUF,"ILLEGAL LABEL DECLARATION. IT HILL BE IGNORED"); 

MVCI43 ,WBUF , "ILLEGAL TAG DECLARATICN. IT WILL EE IGNORED."); 
MVC(49,W8UF, "ILLEGAL STATUS CONSTANT IDENT. IT WILL EE IGNORED."); 
BEGIN 

MVC(50 ,W3UF, "CONSTANT TABLE OVERFLOW. REMAINING STEFS CANCELLED.") 
RO: = SWBUF; WRITE; MVC ( 13 1 , WBUF , BLANK) ; GCTC EXIT; 

ENC; 

MVC(26, WBUF, "ILLEGAL DATA S PE C IF I C AT I ON . " ) ; 

MVC(41, WBUF, "INCOMPATIBLE DATA TYPES IN I N I T I A L I ZAT I CN . " ) ; 

MVC (35 trtBUF ,"IMPRCFER CARRIAGE CONTROL C F R A CT ER . " ) ; 

MVC( 25, WBUF ,"1 LLEGAL FORMAT OESCPIFTCR PAR AM ETER ." ) ; 

ENC; COMMENT END ERROR CASE STMT; 

RC:=aiWbUF; M VC ( 13 i , W BUF , 6L ANK ) ; 

LM.(RC,R4,SAVEREG5) ; 

END; COMMENT END OF PROCEDURE ERROR; 

PROCEDURE FUTIL(R4); CCMMENT IT LOADS VALUE IN RO IN IN SEM/CNTIC FIELD 

OF IDENT WITH POINTER CN TCP OF STACK. ALSC 
LCAOS DAT/seUF IN DESCRBUF; 

BEGIN 

Ri: = eSP SHILL 1; 

P2 :=R10+BPTRSTACK+R1 ; LH(R3,B2); 
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R2:=SEHBASE+R3; STCtRC,B2); 

R2 :=R10+CESCRBUF+5 ; R1:=CATAEUF; 

R3:=kl SHRL 8; STC(P3,B2); 

R2:=R2+i; STC(R1»B2>; 

PC:=7; DFTR:=RO; 

END; COi^.MENT END OF FCTIL; 

P-RCCEDURE CATASIZE(R4l; COMMENT THIS PROCEDURE TA^cS INDEX TO BPTRSTAC 

FROM R1 AND RETURNS THE INTEGER VALUE IN THE 
CONSTANT TABLE CONVERTED TO BINARY FORM; 

BEGIN 

INTEGER SAVE4; SAVE4:=R4; 

Rl:=Rl SHLL 1; 

R2:=K10+bP7RSTACK+Rl; LH(R3^B2); CCHNENT P3 HAS CTPTR; 

R2: = CTbASE-»R3; IC(R4,B2i; COMMENT R4 HAS HEAC6R 'B'YTE; 

R5:=R4 AND ^FF; R5:=R5 SHRL 5; 

IF R5---3 THtN COMMENT NUMERIC CONSTANT i;5 NOT A DECIMAL INTEGER AS 
IT SHOULD; 

BEGIN 

R0:=13; XR:=R0; ERROR; 

ENC ELSE 
BEGI N 

R5:=R4 AND #1F; COMMENT R5 HAS LENGTH; 

R2:=R2+l; IC(Rl,B2); Rl:=Rl AND ^F; 

F0R*P3:=2’STEP i UNTIL R5 DO 
BEGIN 

R2:=R2+l; IC(R4,B2); R4*.=R4 AND ^F; 

R1: = R1 « IDS + R4; 

END; 

END; 

R^:=SAVEA; 

END; COMMENT END OF CATASIZE; 

PROCEDURE SETHEADERI R4) ; COMMENT USED BY PRCCUCTIGNS 7 THRU 13 TCLOAD 

LENGTH OF DESCRIPTOR (NCT COUNTING HEADER 
ITSELF) INTO HEADER BYTE NOW THAT ALL PARMS 
HAV'E BEEN ENTERED; 

BEGIN Rl: = DPTR-l; R2 : =R lO + CES CRBUF ; STCCRl,B2); END; 

PROCEDURE. NW0(R4); COMMENT »N", AND "D " FARTS OF NUMERIC 

CGNVERTION FORMAT. R1 INPUTS POINTER TO REAL 
CONSTANT. THIS PROCEDURE CHECKS THAT REAL CONSTANT 
IS EITHER INTEGER OR FIXED. IF INTEGER, BINARY 
FORM IS RETURNED IN R1 AND RC IS SET TO ZERO. IF 
FIXED, INTEGER PART IN BINARY FORM IS RETURNED IN 
R1 AND FRACTIONAL PART IN RC; 

BEGIN INTEGER TEMP; ARR^Y 3 INTEGER SAVEREGS; 
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STN(R2f RAtSAVEREGS) ; 

R2:=CTfrASE+Rl; IC(R3,B2) ; 

R5:=R3 SHRl 5; R3:=R3 A^D #1F; R5:=R5 AND if3; 

IF R5=3 THEN COMMENT INTEGER CONST.; 

BEGIN 

R2:=R2+l; IC(R1,B2); R1:=R1 AND #F; 

FCR R6:=2*STEP L UATIL R3 CO 
BEGIN 

R2:=R2+l; IC(R5,B2); R5:=R5 AND #F ; 

PI : = R1’<^10S+R5; 

END; 

PO:=RO-ROT 
END ELSE 
BEGIN 

IF R5=A THEN COMMENT FIXED CONST. ; 

BEGIN 

R2:=R2+l; R4:=l; IC(R5,B2); P5:=R5 AND ^FF; R1:=R5 AND ^F; 

IF THEN RI:=R1-R1 

ELSE BEGIN 

R2:=R2+l; RA:=R4+l; IC(R5, E2); 

R5: = R5 AND j^FF; RC: = RO-RQ; 

khILE R3-i = ^4B CG 

BEGIN 

R3:=R5 AND #F; R 1: = R 10 S+R 3 ; 

R2:=R2+l; R4: = R4 + l; iC(R5,E2i; R5: = P5 AND i^FF; 

END; 

END; 

TEMP:=Rl; R2:=R2 + l; P4:=R4+2;, 

IC(R1,B2); RI:=R1 AND #F ; 

RC: =RO-RO; 

FCR R6:=R4 STEP i LNTIL R3 DC 
BEGIN 

R2:=R2+l; IC(P5,B2J; R5:=R5 AND #F ; 

R1 :=R1={=1CS+R5 ; 

ENO; 

R0:=R1 ; 

R1 :^T£MP; 

END ELSE BEGIN R0:=L6; XR:=RO; ERROR; END; 

END; 

LM(R2,R-4 tSAVEREGS) ; 

END; COMMENT END OF NWC; 

PROCEDURE CHECKID(R4); CCMMENT RI HAS POINTER TC IDENT IN ICENT 

DIRECTORY. CFECKID CHECKS THAT IDENT IS CNE OF 
9 LEGAL LETTER PARAMETERS ( I , F , E , 0 , H , A , L , > t T ) 
AND RETURNS -CCRRESPGNCI NG CODE IN Rl. IF ILLEGA 
L, THEN Rl IS -1, ELSE Rl HAS THE LETTER; 
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BEGIM INTEGER SAVE4; SAVE4:=R4; 

PI: = Rl’f»10S ; 

R4 :=STBASE+Rl+2 ; 

IC(RifB4); R1;=R1 AND j¥lF; 

R2: = R1 SHRL 4; R3:=R1 AND 1 
F2 : = R2+1 ; 

CASE R2 OF 
BEGIN 

BEGIN CCf^^^ENT IF 5TH BIT IS 2EPC; 

CASE R3 OF 
BEGIN 

null; Rl:=_i; null; ri:=_i; null; null; null; null; null; 

Rl:=_l; Rl:=^l; R.l:=_l; Rl:=,l; RL:=_1; Pl:= 1; 

ENDl 

END; 

BEGIN COMMENT IF 5Th BIT IS ONE; 

CASE R3 OF 
BEGIN 

Rl;=_l; Rl:=_l; NULL; Rl:=,l; Rl:=_l; NULL; Pi:= 1; Rl:=.l; 
R12=_L; Rl:=^l; Rl:=_l; Rl:=,l; R 1 = 1 ; Ri:=.l; Til:=_l; 

END; 

END; 

ENC ; 

P4 ;r<;AV^4‘ 

END; ‘comment end OF CKECKID; 

FPCCECURE S£TVRBLDSCR(R4) ; COMMENT IT LOADS ''4’' IN HEALER BYTE, 

DATABUF IN NEXT TWC BYTES, AND NEXT TWO 
BYTES WITH POINTER CN TOP CF STACK; 

BEGIN 

R1:=0ATABUF; R2 : =0£ SCRBUF+ R 1 0; 

R3;=-^; STC(R3,B2); R2;^R2+1; 

P3:=R1 SHRL 8; STC(R3,B2); R2:=R2+1; 

STC(R1,B2I ; R2; = R2+i; 

Rl;=6SP SHLL l; R5: =R10+BPTRSTACK4Rl; 

Lh(Rl,B5); R3:=Rl SHRL 8; 

STC(R3,B2); R2;=R2+l; 

STC(RI,32J; 

PC:=5; DPTR:=RO; 

ENC ; 

PPCCEDURE ENTER(R5); COMMENT ENTER INSERTS THE IDENTIFIER IN SBUF 

INTO A SLOT IN THE SYMECL TABLE AT INDEX LCADED 
IN R3; 

BEGIN ARRAY 4 INTEGER SAVEREGS; ST M ( R2 , R5 , S A V E F EGS ) ; 

P2 :=R3*iO ; 

R4 ; = STBASE + R3 ; 

MVC( S,B4,S3L’F) ; 




L^(R2»R5,SAVEREGS) ; 

END; CCMMENT END OF ENTER; 

PROCEDURE C0MPARE(R4 J ;CCMMENT COMPARE TESTS IF IDENTIFIER IN SBUF IS 

EQUAL TO ENTRY IN SYMECL TABLE AT INDEX STPTR; 
BEGIN ARRAY 3 INTEGER SAVEREGS; ST N ( R2 r R4 , S A V E REGS I ; 

R3 :=STPTR; 

R3:=R3*1C; 

RA:=STBASE+R3; 

CLC(9,SEUF,E4); 

LM(R2,R4, SAVEREGS) ; 

END; COMMENT END OF COMPARE; 

PRCCEDURE RESERWRD(R4) ; .CCMMENT RESERWRC IS USED BY SCANNER TO FIND IF 

IDENTIFIER IS A RESERVED l^ORD. IF WCPD IS 
FOUND ITS SEMANTICS IS LOADED INTO SEM ELSE SEM 
I S Z E R C * 

EEGIN ARRAY 5 INTEGER S A V EREGS ; ’ ST M ( R C tR4, SA V EREG S ) ; 
MVC(10,TEMPREFIX,"0 ”) ; 

MVC( 9,TEMPREFIX( 1) ,SBUF) ; 

MVC(lO,SEUF,TEMPREFIX); 

RC:=SPTR+i; IF R0>1C THEN R0:=10; 

SPTR:=R0 ; 

HASH; 

MVC(9,TEMPREFIX,SELF(D); 

MVC( 9,SBUF, TEMPREFIX) ; 

RC:=SPTR-l; SPTR:=RO; 

Rl:=HTPTR; Ri:=Rl SHLL l; 

P3:=R9+R1; LH(R2,B3); 

IF R2=„l THEN BEGIN F0:=0; SEM:=PC; END 
ELSE BEGIN 

STPTR:=R2; COMPARE; 

IF THEN BEGIN PQ:=0; SEM: = RO; END ELSE 

BEGIN R3:=SEMBASE+R2; IC(R0,B3); RO:=RO AND HFF; SEM:=RO; END; 

END ; 

LMPC,R4 , SAVEREGS) ; 

END; COMMENT END OF RESERtvRD; 



PRGCEDLRE L00KUP(R4); COMMENT LCOKLP TAKES THE IDENTIFIER IN SBUF AND 

ADCS THE CURRENT BLOCK NLMBER PREFIX TO IT. THEN 
HASHES IT AND LOOKS FCR IT IN THE SYMBOL TABLE. 
IF THERE, IT RETURNS ITS INDEX A^C SEMANTICS. 
ELSE IT TRIES AGAIN WITH PREFIX IF NOT 

THERE EITHER THEN ENTEFS IT IN THE SYMEOL TABLE 
WITH CURRENT BLCCK NUMBER PREFIX AND RETURNS ITS 
INDEX AND IDENTIFIER SEMANTICS; 

BEGIN ARRAY 5 INTEGER SAVEREGS; S TM { RO , R4 , S A V E R ECS ) ; 
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MVC(7,PREFIX(2), BLANK) ; 

^<VC(7,PREF.IX^2) jSBUF); 

MVC(9,SBUF, PREFIX) ; 

R0:=SPTR+2; 

IF ROlO THEN R0: = 10; 

SPTR: = R0 ; 

HASFl: FASH; 

Rl:=HTPTR; R1:=R1 SHLL 1; 

P32— R9+Rl*LH(R233)* 

IFl: IF R2-.=,i THEN CCNPENT COMPARE SEUF WITH ICENTRY UNTIL IDENTIFIER 

IS FCLND CR STCHAIN IS ZERC; 

BEGIN 

STFTR:=R2; CCMPAPE; 

IF = THEN COMMENT IDENT IS FCUND; 

BEGIN 

FCINTER:=R2; R3 : =S EM BAS E+R2 ; 

IC(RC,B3); R0:-RC AND #FF; 

SEM:=R0; GOTO LGQKEXIT; 

END 

ELSE BEGIN R3:=R2 SHLL L; 

R4:=STCHAINBASE+R3 ; LH(P2,B4); GCTC IFl; END; 

END 

ELSE BEGIN COMMENT lOENT IS NOT IN SYMBOL TABLE WITH THIS PREFIX; 
CLCd , SBUF,«00») ; 

IF -1= THEN BEGIN COMMENT TRY WITH «00»; 

MVC( ItSBUF, "OO" ) ; 

GGTC HASHl; 

END 

ELSE COMMENT THIS PREFIX IS “OO” SO IDENT IS NOT IN SYMBOL TABLE 
BEGIN COMMENT UETS ENTER THE IDENT WITH CURRENT PREFIX; 

MVC( I, S6UF, PREFIX) ; 

hash; ri:=htptp; ri;=ri shll l; 

R4:=R9+R1; 

IF2: LMR2,B4); 

IF R2=_l THEN 
BEGIN 

R3: = P0INTFR-EE+l; RO:,= STLIM IT ; IF R3> = RC THEN BEGIN 

R0:=8; >R:=RO; ERROR; END; 
POINTFREE :=R3; PCINTER:=R3; ENTER; STH(R3,B4); 

R2:=R3 SHLL l; R4:= STChAI NB A SE+R2 ; RC:=_l; STH(RO,B4); 
RO:=C; SEM:=RC; 

END 

ELSE BEGIN 

R2:=R2 SHLL 1; R4 : =STCH A I N E AS E + R2 ; GCTC IF2; 

END; 

END; 

END ; 

LOQKEXIT: L M ( RO , R4 , SA VER E GS ) ; 




END; CCMMEM END OF LOOKUP 
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PROCEDURE GETCHAR(k4); COMMENT GETCHAR LOADS CBLF(CP) INTO CHAP AND 
ITS CLASS INTO CLASS. IT THEN INCREMENTS CP AND IF NEEDED, READS NEW 
CARO AND LISTS IT IF LISTFLAG IS SET; 

BEGIN ARRAY 5 INTEGER SAVEREGS; S T M ( RO , R4 , S A V E R EGS J ; 

P -a ; — C p * 

IC (Ri,CeUF(R3i ); STC(R1,CHAR ) ; R1:=R1 AND J^FF; 

IC(R2,CHARCLASS(R1) J ; R2:=R2 AND ^FF; CLASS:=R2; 

R3:=R3+i; CP:=R3; 

IF R3>79 THEN 
BEGIN 

RO: = a)CBUF; READ; COMMENT READ A CARD INTO CARD BUFFER; 

IF > THEN COMMENT CONDITION CODE = 2 INDICATES EOF; 

BEGIN 

MVC(79,CeUF, BLANK) ; 

MVC( 10,CBUF(i0) ,“£CF EOF EOF”); 

SET( ENDIT) ; 

END; 

R0:=CARCCCUNT + 1 ; C ARDCOUMT : =R0 ; COMMENT UPDATE CARCCOUNT; 

IF LISTFLAG THEN COMMENT IF LISTFLAG IS SET THEN LIST CARCCOUNT 

AND CARD BUFFER; 

BEGIN 

CVD( RC fCGNWORK) ; UN PK ( 3 , 7 , W BL F ( 15 ) , C C N C FK ) ; 

SETZONE(WBUF( 18 ) ) ; MVC( 79 , WBUF ( 22 ) ,CBUF ) ; 

RO:=aiWBUF; WRITE; MVC(131,WBUF,ELANK); 

END; 

P0:=10; CP;=RO; COMMENT CHARACTER PTR POINTS AT COLUNM U OF NEW 

card; 

END ; 

LM (P0,R4 ,SAVEREGS ) ; 

END; COMMENT END OF GETCHAR; 



PROCEDURE CCNCAT(R^); COMMENT CONCAT ASSEMBLES CHARACTERS AS THEY 
ARE SCANNED INTO THE SYMBOL BUFFER SBUF; 

BEGIN ARRAY 3 INTEGER SAVEREGS; STM ( R2, R 4 , SA VEREGS ) ; 

R2:=SPTR+l; SPTR:=R2; 

IF P2<22 THEN 

BEGIN R3:=ESBUF(R2 ) ; MVC (0 , B3, CHAR ) ; END; 

LM(K2,k4 , SAVEREGS) ; 

END; COMMENT END OF CONCAT; 



GLOBAL PROCEDURE SCANNER(K3); COMMENT SCANNER HAS 27 CASES AS DETAILED 

BELOW; 







BEGIN 

/iRR/^Y 6 INTEGER SAVEREGS; STM ( R C , R 5 , SA VE R EG S ) ; 

COMMENT SYMECL EUFFER SETUP; 

ROi=,l; SPTR:=RO; M VC ( 2 1 , S BUF , EL ANK ) ; 

COMMENT Skip over blanks; 

IC(RltCHAR); R1:=R1 AND ^FF; 

whlLE Rl = /#40 DC BEGIN GETCHAR; IC(R1,CHAR); Fl: = Rl AND #FF; ENC 
R2:=CLASS; 

STARTSCAN :CASE R2 OF 
BEG IN 

BEGIN COMMENT CASE 1 HANDLES OCTAL CONSTANTS; 

GETCHAR; R2:=CLASS; 

WHILE R2=2 DO BEGIN CONCAT; GETCHAR; R2:=CLASS; END; 

IF R2=8 THEN CONCAT COMMENT DECIMAL POINT; 

ELSE BEGIN 

IC(R1,CHAR); RL:=R1 AND #FF; 

IF R1=#C5 THEN GOTO LI COMMENT FLOATIN POINT CONSTANT; 

ELSE COMMENT LOAD CONSTANT IN TAELE AND (C TO EXIT; 

EEGIN 

R5 : =SFTR+1 ; R3 : = CTPTR; POINT EP:=R3 ; 

RA:=k5+R3+CTBASE; R0:=CTLIMIT; IF R4>=RC THEN 
BEGIN R0:=12; XR:=RO; ERROR; END; 

R4: = CTBASE+R3; STC(R5,B4 ) ; 

R4:=R4+i; R5:=R5-i; 

EX(R5,MVC(0,B4,SBUF) ); 

K3:=R3+R5+2; CTPTR:=R3; 

RO:=i; SEM := RG; GOTO EXITl; 

END; 

end; 

GETCHAR; R2:=CLAS$; 

WHILE R2=2 CO BEGIN CONCAT; GETCHAR; R2:=CLASS; END; 

IC(R1,CH-AR) ; Rl: = Rl AND #FF; 

IF P1=^C5 THEN GOTO LI COMMENT FLOATING POINT CONSTANT; 

ELSE COMMENT LOAD CONSTANT IN TABLE ANC GO TO EXIT; 

EEGIN 

R5;^SPTR+i; R3;=CTPTR; POINTER:=R3; 

R4:=R5+R3+CTBASE ; PO:=CTLIMIT; IF R4>=P0 THEN 
BEGIN Ru:=I2; Xk:^RC; ERROR; END; 

Hb:=t<5 OR #20; 

R4;=CT6ASE+K3; STC( R5,B4) ; 

R5;=R5 AND #1F; 

R4:=R4+i; R5:=R5-l; 

EX(R5,MVC(0,B4,S6UF)); 

R3:=R3+R5+2; CTPTR:=R3; 

RO:^l; SEM ;= RO; GOTO EXITl; 

END; 

Ll: CCNCAT; GETCHAR; R2:^CLASS; 

IF R2=2Q OR R2=2l THEN COMMENT SIGNED EXPONENT; 




BEGIN 

CCNCAT; GETCHAR; P2:-CLASS; 

WHILE R2=2 DQ BEGIN CQNCAT; GETCHAR; R2:=CLASS; END; 

ENC ELSE WHILE R2 = 2 LQ BEGIN CQNCAT; GETCHAR; R2:=CLASS; END-; 
CCMMENT LOAD CONSTANT IN TABLE ; 

R5:=SPTR+l; R3:=CTPTR; PQINTER:=R3; 

R4:=^R5 + R3 + CTBASE t RO:=CTLIMIT; IF R4> = RC THEN 
BEGIN RC: = 12; XR.^^RC; ERROR; ENC; 

R5:=-R5 OR #40; 

R4:=CTBASE+R3; STC(R5,B4); 

R5;=R5 AND #1F; 

R5:=R5-l; 

EX(R5,RVC(0,B4,SEUF) ); 

R3:^R3+R5+2; CTPTR:^R3; 

RO:=l; SEM := RO; 

EXITl: 

END; COMMENT END CASE i; 

BEGIN COMMENT CASE 2 HANDLES DECIMAL CONSTANTS; 

CCNCAT; GETCHAR; R2:=CLASS; 

WHILE R2=2 CR R2=3 CC BEGIN CQNCAT; GETCHAR; R2r=CLASS; END; 
IF R2=8 THEN CONCAT COMMENT DECIMAL POINT; 

ELSE BEGIN 

ICiRltCHAR); R;:=RL AND #FF; 

IF R1=#C5 THEN GOTO L2 COMMENT FLCATIN POINT CONSTANT; 

ELSE COMMENT LOAD CONSTANT IN TABLE AND CC TO EXIT; 

BEGIN 

R5:=SPTR+l; R3:=CTPTR; PCINTER:=R3; 
rA:=R5+R3+CTBASE; R0:=CTLIMIT^ IF R4>=RC TH£N 
BEGIN RC:=12; XR:=RO; ERROR; END; 

R5:=R5 OR #60; 

R4: = CTfiASE+R3 ; STC(R5,B4H; 

R5:=R5 AND #1F; 

R4:=R4+l; R3:=R5-l; 

EX(R5,MVC(0,B4,SeUFJ ); 

R3:=R3+R5+2; CTP7R:=R3; 

RO:=l; SEM := RC; GOTO EXIT2; 

END; 

END; 

GETCHAR* R2i=CLASS* 

WHILE R2=2 OR R2=3*CC BEGIN CQNCAT; GETCHAR; R2:=CLASS; END; 
IC(RltCHAR); Rl:=Rl AND #FF; 

IF Rl=#C5 THEN GOTO L2 COMMENT FLOATING POINT CONSTANT; 

ELSE CONTmENT load CONSTANT IN- TABLE ANC GC TO EXIT; 

BEGIN 

R5:=SPTR+1 ; R3:=CTPTR; POINT ER:=R3; 

R4:=R5+R3+CTBASE ; RO:=CTLIMIT; IF R4>=R0 THEN 
BEGIN R0:=12; XR:=RC; ERROR; END; 
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F5:=P5 CR #80; 

R4:=CTBASE+R3; STC(R5,B4) 

R5:=R5 AND #1F; 

R5:-R5-L; 

EX(R 5,MVC( 0,B4, SBUF) ) ; 

R3:=R3+R5+2; CTFTR:=R3; 

R0:=i; SEM := RO; GCTQ EXIT2; 

END; 

L2: CCNCAT; GETChAR; R2:=CLASS; 

IF R2=20 OR R2=21 THEN CCMMENT SIGREC EXPCREM; 

BEG IN 

CCNCAT; GETCHAR; R2:=CLASS; 

WHILE R2=2 GR R2=3 CG BEGIN CGNC/T; GETCHAR; R2:=CLASS; END; 

END ELSE WHILE R2=2 OR R2=3 DO BEGIN CONCAT; GETCHAR; R2 : =C LAS S ; END 
CCRRENT LOAD CONSTANT IN TABLE ; 

R5: = SPTR+i; R3:=<;TPTR; PQINTEP:=R3; 

R4: = H5 + R3 + CTBAS£ ; RO: = CTLIMIT; IF R4> = RC THEN 
BEGIN RC:=12; XR:=RO; ERROR; END; 

R5:=R5 OR #A0; 

R4: = CTBASE+R3 ; STC(R5, B4 ) ; 

R5:=R5 AND #1F; 

R4:=R4+l; R5:=R5-l; 

EX(P5 ,RVC(0 f B4 ,S£UFn ; 

R3:='R3+R5+2; CTPTR : = R3; 

RO:=i; SEM := RC; 

E X I T2 ^ 

END; COMMENT END CASE 2; 

BEGIN COMMENT CASE 3 IS JUST ANOTHER ENTRY TC CASE 2 DLE TO THE 

SEPARATION OF DIGITS INTO CLASi 2 SET (OCTAL DIGITS) 

AND CLASS 3 (8i S ) ; 

R2:=2; GOTO STARTSCAN; 

END; COMMENT END OF CASE 3; 

BEGIN COMMENT CASE 4 HANDLES IDENTIFIERS; 

CCNCAT; GETCHAR; R2:=CLASS; 

WHILE R2<6 AND R2>1 CO BEGIN CONCAT; GETCHAR; R2:=CLASS; END; 

IF R2=27 THEN COMMENT IT CAN BE A RESERVED WORD AND , OR IT CAN 
BE A LABEL DECLARATICN; 

BEGIN 

RESERWRD* RO^^SEM* 

IF RO=C THEn'cQMMcNT IT IS NOT A RESERVED V>CRC SC IT MOST BE A 
LEGAL OR ILLEGAL LABEL DECLARATION; 

BEGIN 

LOOKUP; RO:=SEM; 

IF R0=0 CR R0=7 THEN CCMMENT IT IS A LEGAL LABEL DECL. ; 
BEGIN R1:=SEMBASE+P0INTEP; R2:=6; STC(R2,Bli; SEM:=R2; END 
ELSE BEGIN CCMMENT ILLEGAL LABEL; 
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RC:=9; XR:=RO; ERROR; GETCHAR; R2:=CLASS; 

RO:=_i; SPTR:=RO; MVC ( 2 1 , SBUF , B L A ^ K ) ; GOTO STARTSCAN; 

END; 

GETCHAR; 

ENC ; 

END ELSE COMMENT LOOKUP SYMBOL TABLE FOR RESERVED WORD; 

BEGIN 

RESERWRD; RO:=SEM; 

IF R0=0 THEN COMMENT IT IS NOT A RESERVED WORD; 

BEGIN 

LOOKUP; RO:=SEM; 

IF R0=0 THEN COMMENT A NEW ENTRY; 

BEGIN Rl:=SEMBASEi-PCINTER; R2:=7; STC<R2,B1); SEM: = R2; END; 

ENC; 

END ; 

END; COMMENT END OF CASE 4; 

BEGIN COMMENT CASE 5 IS JUST ANOTHER ENTRY FOR CASE 4 DUE TO 

SPLITTING OF LETTERS INTO CLASS 4 (HEX NUMBERS) AND 
CLASS 5 (G TO Z AND ) ; 

R2:=4; GOTO STARTSCAN; 

END; COMMENT END OF CASE 5; 

BEGIN COMMENT CASE 6 HANDLES HEXACECIMAL CONSTANTS; 

GETCHAR; R2:=CLASS; 

WHILE R2<5 AND R2>1 CG BEGIN CONCAT; GETCHAR; R2:=CLASS; END; 
COMMENT NOW ENTER HEX CONSTANT INTO CONSTANT T/ELE AND OUTPUT SEMANTICS 
R5:=SP7k+l; 

IF R5=0 OR R2=5 THEN 
BEGIN 

R5: = 7; XR:=R5; ERROR; RO:=_l; SPJR:=RO; M VC ( 2 I , S BUF ,BL ANK ) ; 

GOTO STARTSCAN; 

ENC 

ELSE BEGIN 

R3:=CTPTR; PCINTER:=R3; 

R4:=R5+R3+CTBASE; RO:=CTLIMIT; IF R4>=RC THEN 
BEGIN R0:=12; XR:=RO; ERROR; END; 

R4:=CTBASE+R3; STC( R5tB4) ; 

R4:=R4+l; R5:=R5-i; 

EX(R5,MVC (Ot B4,SBUF) ) ; 

R3:=P3+R5+2; CTPTR:=R3; 

R0:=2; SEM:=RO; 

END; 

END; COMMENT END OF CASE 6; 

BEGIN COMMENT CASE 7 HANDLES ”3" ; 

GETCHAR; R,C:=30; SEM: = RO; 

END; COMMENT END CASE 7; 




BEGIN COMMENT CASE 8 HANDLES SC/iLE SYMBCL; 

GETCHAR; R2:=CLASS; 

IF P2-.=8 THEN COMMENT ».*' IS DECIMAL POINT OF NUMERIC CONSTANT 
BEGIN- 

R2:=2; GOTO STARTSCAN; 

EN-C; 

GETCHAR; 

RC:=U; SEM:=RO; 

END; COMMENT END CASE 8; 



BEGIN COMMENT CASE 9 HANDLES AND 

GETCHAR; R2:=CLASS; 

IF R2=23 THEN CQMME NT . OUTPUT SEMANTICS; 
BEGIN R0:=26; SEM:=RO; 

CCNCAT; GETCHAR; 

END 

ELSE COMMENT OUTPUT SEMANTICS; 

BEGIN 

RC:=22; SEM:=RO; 

ENC ; 

END; COMMENT END OF CASE 9; 
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BEGIN COMMENT CASE 10 HANDLES ">»; 

GETCHAR; R0:=27; SEM:=PO; 

END; COMMENT END CASE IQ; 



BEGIN COMMENT CASE 11 HANDLES 
GETCHAR; RG:=12; SEM:=RC; 

END; COMMENT ENC CASE U; 

BEGIN COMMENT CASE 12 HANDLES COMMENTS; 

GETCHAR; R2:=CLASS ; 

WHILE R2-=12 DO BEGIN GETCHAR; R2:-CLASS; END; 
GETCHAR; R2:=CLASS; GOTO STARTSCAN; 

END; COMMENT END OF CASE 12; 



BEGIN CCMMENT CASE 13 HANDLE^ AND«’«'*»; 

GETCHAR; R2:=CLASS; 

IF R2=13 THEN COMMENT OUTPUT SEMANTICS; 
BEGIN 

R0:=19; SEM:=R0; 

GETCHAR; 

ENC 

ELSE COMMENT OUTPUT * SEMANTICS; 

BEGIN 

R0:=18; SEM:=R0; 

END; 




END; COMMENT END OF CAS-E 13; 



BEGIN COMMENT CASE 14 HANDLES STRING CONSTANTS; 

GETCHAR; R2:=CLASS; 

R3:=CTPTR; POINTER:=R2; R 1 : =CTBASE +R2+ 1 ; R5:=R5~R5; 

WHILE R2-' = 14 DC COMMENT LOAD CHARACTER STRING INTO CONSTANT TABLE 
BEGIN 

IF Rl>= CTLIMIT THEN 

BEGIN RC:=12; XR:=RO; ERROR; END; 

IC(RO,CHARJ; STC(RO,aU; Rl: = Rl+l; R5:-R5 + l; 

GETCHAR; R2:=CLASS; 

END ; 

R4:=CTBAS E+R3 ; STC(R5,64J; R4:=R3+R5+1; CTPTR:=R4; 

GETCHAR; R0:=3; SEM:=RO; 

END; COMMENT END CASE 14; 

BEGIN COMMENT CASE 15 HANDLES STATUS CONSTANTS; 

GETCHAR; R2:=CLASS; 

IF R2-i=4 AND R2*'=5 THEN COMMENT ILLEGAL INITIAL CHARACTER; 

BEGIN 

RO:==l; XR:=RC; ERROR; 

WHILE R2-^=15 DO BEGIN GETCHAR; R2:=CLASS; END; 

GETCHAR; R2:=CLASS; GOTO STARTSCAN; 

BNC 

ELSE 

WHILE R2<6 AND R2>1 DC BEGIN CONCAT; GETCHAR; R2:=CLASS; END; 

IF R2-=15 THEN COMMENT ILLEGAL SYMBOL; 

BEGIN 

RO:=l; XR:=R0; ERROR; 

WHILE R2-^=15. DO BEGIN GETCHAR; R2:=CLASS; END; 

GETCHAR; R2:=CLASS; 

RO:^_l; SPTR:=R0; MVC(21 ,SBUF ,ELANK) ; 

GOTO STARTSCAN; 

END 

ELSE CCMMENT OUTPUT STATUS CONSTANT SEMAMTICS; 

BEGIN 

LCCKUP; R0:=SEM; 

IF RC=0 THEN CCMMENT NEW ENTRY; 

BEGIN 

R1 : = SE MBAS E + PO INTER; R2:=4 ; 

STC(R2,Bi); SEM:=P2; 

ENC ELSE 
BEGIN 

IF RO 4 THEN CCMMENT ILLEGAL STATUS CCNSTANT IDENTIFIER; 
BEGIN RO:=ll; XR:=RO; ERROR; END ELSE SEM:=RC; 

END; 

END; 

GETCHAR; 




E^0; CGMMEM EMD OF CASE 15; 



BEGIN COMMENT CASE 16 HANDLES 
GETCHAR; R0:=17; SEM:=RO; 

END; COMMENT END CASE 16; 

BEGIN COMMENT CASE 17 HANDLES 
GETCHAR; R0:=25; SEN:=RO; 

END; COMMENT END OF CASE 17; 

BEGIN COMMENT CASE 18 HANDLES ; 

GETCHAR; RO:=15; SEM:=R0; 

END; COMMENT END OF CASE 13; 

BEGIN CCMM.ENT CASE 19 HANDLES “)"; 

GETCHAR; R0:=20; SEM:=RO; 

ENOl COMMENT END OF CASE 19; 

BEGIN CCMM.ENT CASE 20 HANDLES ; 

GETCHAR; R0:=14; SEM:=RO; 

END; COMME.NT END OF CASE 20; 

BEGIN COMMENT CASE 21 HANDLES ; 

GETCHAR; R0: = 23; SEM;,=RO; 

END; COMMENT END OF CASE 2 \; 

EEGIN CGM,M-ENT CASE 22 HJ^NDLES • V” .* 

GETCHAR; R0:=24; SEM:=PO; 

END; COMMENT END OF CAS^E 22; 

EEGIN COMMENT CASE 23 HANDLES » = ” ; 

GETCHAR; R0:=29; SEM:=RO; 

END; COMMENT END OF CASE 23; 

BEGIN COMMENT CASE 24 HANDLES SEMICOLON; 

GETCHAR; R0:=21; SEM;=RO; 

END; COMMENT END OF CASE 24; 

f 

EEGIN COMMENT CASE 25 HANDLES AND ”11**; 

GETCHAR; R2 :=CLASS ; 

IF R2=25 THEN COMMENT CLTPUT ”||” SEMANTICS; 
BEGIN 

P0:=16; SEM:=RO; 

GETCHAR; 

END 

ELSE COMMENT OUTPUT ”|" SEMANTICS; 

EEGIN RC:=15; SEM:=RO; END; 

END; COMMENT END OF CASE 25; 




6EGIN COMMENT CASE 26 HANDLES ILLEGAl, CHARACTERS; 

IC(R1,CHAR); Rl:=Rl AND #FF; 

IF R1=/^4C THEN 
BEGIN 

^^HILE Rl = ^40 DO BEG.IN GETCHAR; IC(R1,CHAR); R1: = R1 AND UFF; END; 
R2:=CLASS; GOTO STARTSCAN; 

ENC ELSE 
BEGIN 

R0:=2; XR:=RO; ERROR; GETCHAR; R2:=CLASS; GOTO STARTSCAN; 

ENC ; 

ENC; COMMENT END OF CASE 26; 

BEGIN COMMENT CASE 27 HANDLES " : » V\KEN USED CTHER THAN WITH ICENTS 
TO FORM labels; 

GETCHAR; RC:=28; SEM:=RO; 

ENC ; COMMENT END OF CA^E 27; 

END; COMMENT END OF CASE BLOCK; 

LM (RC.R5, SAVEREGS) ; 

ENC; COMMENT END OF SCANNER; 



GLOEAL PROCEDURE SCAN(R4); COMMENT THIS PROCEOLR 

OF THE SCANNER ANC T 
BOTH GRAMMARS; 

BEGIN 

ARRAY 4 INTEGER SAVER; STM { RO , R3 ,S A V ER ) ; 

IF ENCIT THEN BEGIN Rl:=i; TOKEN:=Rl; ETCKEN:=Rl; END 
ELSE BEGIN 

SCANNER; 

R2:=;?SEM; 

CASE R2 OF 
BEGIN 

BEGIN Rl:=0049 



E CONTROLS THE OUTPUT 
HE INTERPHASE BETWEEN 



BEGIN RI:=0C59 

BEGIN Rl :=0064 

BEGIN Rl:=0030 

BEGIN Rl:=0074 
BEGIN Rl:=0014 
BEGIN COMMENT 



TOKEN 

TOKEN- 

TOKEN 

TOKEN 

TOKEN 

TOKEN 



=Rl; Rl:=024; BTOKEN:=Rl; 

Rl; 
Rl; 



7- IDENT" 

IF ENDIT THEN BEGIN Rl:=l; TOKEN:=Rl; 
ELSE BEGIN 

IF PCAL THEN BEGIN 



END; COMMENT “ 1- 
NUMERIC CONST.” 
ENC; COMMENT ”2- 

BITS CONST.” 
ENC; COMMENT ”5- 
CHARACTER CONST.”; 
=R1; Rl:=034; 8T0KEN:=R1; END; COMMENT ”4- 

STATUS CONST.”; 
CCLEAN CONSTANT”; 
LABEL” ; 



=Fi; Rl:=035; 

r 

=Rl; Ri:=036; 



BTOKEN 

ETOKEN 



=Rl; END; COMMENT ”5-E 
=Rl; END; COMMENT ”6- 



ETCKEN:=R1; END 
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Rl:=C098; TOKEN:=Rl; RESET(PCAL); 

EI\C ELSE 

IF IDISLBL THEN BEGIN Rl:=0014; TCKEN: = R1; RESET ( I C IS L EL ) ; 

END ELSE 



END ; 



ENC; 



null; null; 



BEGIN R1 
BEGIN R1 
BEGIN R1 
BEGIN R1 
BEGIN Ri 
BEGIN Rl 



=0047 
=.0080 
= 0046 
= CC39 
= 0089 
= 0090 



BEGIN COMMENT 



TOKEN 
TOKEN 
TOKEN 
TOKEN 
TOKEN 
TOKEN 
17- $" 



= Rl; ENC; CCMMENT « 1 1- . 

= Rl; ENC; CCMMENT "12- <*'; 
=Rl; Rl:=007; BTOKEN:=Rl; 
=Rl; ENC; CCMMENT +"; 



=Ri; 


END; 




ENC; 


COMMENT 


«8- 




TAG" ; 




f 

end; 


COMMENT 


"12- (If 


END; 


CCMMENT 


"15-1 " 


ENC; 


COMMENT 


*‘16-| 1 



IF BENCIT THEN BEGIN Rl:=003; ET0KEN:=R1; SET(ENDIT); END 
ELSE BEGIN Rl:=0004; TCKEN:=Ri; Ri:=003; BTOKEN:=Ri; ENC; 
ENC ; 



BEGIN 


Ri 


:=0041; 


TOKEN:=R l; 


ENC; CCMMENT "IE- =«■"; 








BEGIN 


Rl 


:=0044; 


TOKEN: =Rl; 


ENC; CCMMENT "19- 


$ 






BEGIN 


Rl 


:=CC19; 


TOKEN :=Ri; 


Rl:=OCA; BT0KEN:=R1; 


ENC; 


COMMENT 


"20-)"; 


NULL; null 


4 

5 










BEGIN 


Rl 


:=CC4C; 


TOKEN:=Rl; 


ENC; CCMMENT "22. ; 








BEGIN 


Rl 


:=0042; 


TOKEN:=Ri; 


Rl:=042; BTOKEN:=Pl; 


ENC; 


COMMENT 


"24-/"; 


BEGIN 


Rl 


:=0022; 


TOKEN:=Rl; 


Rl:=008; 6T0KEN:=Rl; 


ENC; 


COMMENT 


"25- f"; 


BEGIN 


Ri 


:=CC79; 


TOKEN:=Rl; 


ENC; CCMMENT "26- -i = " 


f 




BEGIN 


Rl 


:=0081 ; 


token:=r i; 


END; COMMENT "27- >"; 








BEGIN 


Rl 


:=0029; 


TGKEN:=Rl; 


ENC; CCMMENT "28- :"; 








BEGIN 


Rl 


:=0078; 


T0KEN:=R1; 


Rl:=023; BTOKEN:=Pl; 


ENC; 


COMMENT 


"29-="^; 


NULL ; 
BEGIN 


Rl 


: = 0023; 


TOKEN:=Rl; 


Rl:=012; BT0KEN:=R1; 


ENC; 


COMMENT 


"21- 


BEGIN 












NUMERIC 


VAR"; 


Rl 


:=0048; 


TOKEN:=Rl; 


ENC; COMMENT "32- NUM 


FUNCTION NAME"; 


BEGIN 


Rl 


: = 0C5i ; 


TOKEN:=Rl; 


R1:=048; BTOKEN:=Pl; 


ENC; 


COMMENLT 


II 














NUM FLC 


NAME"; 


BEGIN 


Rl 


:=0061 ; 


TOKEN:=Rl; 


Rl:=012; BTOKEN:=Pl; 


ENC; 


COMMENT 


" 2 A— 














BITS VAR 


II T 

f 


BEGIN 


Rl 


:=0060 ; 


TOKEN: =R 1; 


END; CCMMENT "25- BITS FUNCTION NAME"; 


BEGIN 


Rl 


:=0062 ; 


T0KEN:=R1; 


Rl:=0A9; BTOKEN:=Rl; 


ENC; 


COMMENT 


"26- 














BITS FLC 


NAME"; 


BEGIN 


Rl 


• ? 0 0 6 6 ; 


TOKEN:=R 1; 


Rl:=014; BTOKEN:=Ri; 


END ; 


CCMMENT 


"37- 














CHAR VAR 


II • 
» 


BEGIN 


Rl 


: = 0C65; 


T0KEN: = R1; 


END; CCMMENT "38- CHAR FUNCTION NAME"; 


BEGIN 


Rl 


:=0067 ; 


TOKEN:-Rl; 


Rl:=050; btoken:=ri; 


END; 


COMMENT 


"29- 














CHAR FLC 


NAME"; 


BEGIN 


Rl 


:=0C69; 


T0KEN:=Rl; 


Rl:=0l5; BTOKEN:=Pl; 


ENC; 


COMMENT 


"AO- 
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NULL 



BEGIN 


RI 


:=C068 


TOKEN:=Ri; 


BEGIN 


Rl 


:=0070 


TOKEN-:=?Rl; 


BEGIN 


Rl 


:=0076 


TOKEN-: = Rl; 


BEGIN 


Rl 


: = C075 


TQKEN:=R1; 


BEGIN 


RI 


:=0077 


TOKEN-: = Rl; 


BEGIN 


RI 


:=0C82 


TQKEK:=Rl; 


BEGIN 


RI 


:=0088 


TGKEK:=R1 ; 


BEGIN 


Rl 


:=,CC9 7 


TOKEN:=Rl; 


BEGIN 


RI 


:=?0Q84 


TQKEN.,: = R I; 


BEGIN 


RI 


:=0083 


T0KEN:=R1; 


; NULL 


f 


NULL; 


NULL; 



STAT VAR*'; 

END; CONSENT *'41- STAT FUNCTICN NAME; 

Rl: = 05t; BTOKEN:=Rl; END; COMMENT *'42- 

STAT FLD NAME** 

Rl: = 016; ETOKEN: = Pl; END; COMMENT *'43^ 

BOOLEAN VAR*'; 

ENC; COMMENT **44- BCOL FUNCTION NAME"; 
Rl:=052; BTQKEN:=Rl; END; COMMENT "45- 

BOOL FLD NAME*' 

Rl:=01?; eTOKEN:=Rl; ENC; COMMENT "46^ 

TABLE NAME"; 

ENC; COMMENT "47- PROCEDURE NAME"; 

END; COMMENT "48- FORMAT NAME" 



Rl:=016; BTOKEN:=Rl 
Rl:=C19; BTOKEN:=Ri; 



END; COMMENT 
ITEM^AREA 
ENC; COMMENT 
SUBTABLE 



*' 4 9- 
NAME" ; 
"50- 
NAME** 



BEGIN Rl: = CC45; tOKENf:=Rl; 
ELGIN COMMENT "56- AUTO CD" 
Rl:=022; BT0KEN:=R1; ^ 

R 15: = 6ANALBASE ; 

EALR(R4,R15); 

R 15: = SCANBASE; 

RESET (-ENDIT ) ; R ES ET ( B END I T ) ; 
Rl:=0G12; TOK£N:=Rl; COMMENT 
R4: = RTRNTGANAL ; 

ENC; 

ENC 
END 
ENC 
END 
END 
ENC 



END; COMMENT "55- AES"; 



TOKEN FOR <AUTG DATA CECL> 



BEGIN 


Rl 


= CC71 


TOKEN 


= R1 


BEGIN 


Rl 


= C052 


TOKEN^ 


= R 1 


BEGIN 


RI 


= 0036 


TOKEN 


= R1 


BEGIN 


Rl 


= C30; 


BTOKEN 


= R1 


BEGIN 


Rl 


= 0060 


TOKEN 


= R 1 


BEGIN 


RI 


= 032 ; 


BTQKEMr 


= R1 


BEGIN 


RI 


= 0016 


TOKEN 


= R 1 


BEGIN 


RI 


= 0027 


TOKEN 


= R1 


BEGIN 


Ri 


=fCC63 


TOKEN 


= R1 


BEGIN 


RI 


= 0056 


TOKEM 


= R 1 


BEGIN 


RI 


=0057 


TOKEN 


= R1 


BEGIN 


Ri 


= C048 


TOKEN 


= R1 


BEG IN 


RI 


= 0065 


TOKENS 


= R 1 


BEGIN 


RI 


= 0100 


TOKEN 


= R1 


BEGIN 


Ri 


=0033 


TOKEN 


= R1 


BEGIN 


Ri 


= 0051 


TOKEN 


= R1 


BEGIN 


Ri 


=.CC99 


TOKEN 


= Ri 


BEG IN 


Ri 


= C013 


TOKEN 


= R I 


BEGIN 


RL 


= 002 ; 


BTOKEN 


= R1 


BEGIN 


Ri 


= 025; 


BTOKEN 


= R1 



COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 



"57- 

"5£- 

H 5 C — 

"6C- 
"6 i- 
"6 2 - 



ANC" ; 
ANDL"; 
BEGIN" ; 

P I T R 9* * 

BITSTRING" 
BOOLEAN" 



SET(PCAL); END; COMMENT "63- CALL"; 



END; COMMENT 
ENC; COMMENT 
END; COMMENT 
ENC; COMMENT 
ENC; COMMENT 
END; COMMENT 
ENC; COMMENT 
END; COMMENT 
END; COMMENT 
ENC; COMMENT 
END; COMMENT 
SET(BENCIT) ; 
END; COMMENT 



"6 4- 

II A i;_ 

"6 6 - 
"6 7- 
"6 8 - 
"6 9- 
"7C- 
" 71 - 
" 72 - 

II 7 

"7 4- 
ENC ; 

*»76- 



CASE" 

CAT" ; 
CIRSHLL"; 
CIRSHRL" ; 
CFARCCCE"; 
CODECHAR"; 
DECODE" ; 

DC"; 

ELSE"; 
ENCODE" ; 
ENC"; 

CGI^MENT "75- 
ENC^TABLE" ; 



END^CD*'; 
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BEGIN Rl:=0007; TOKEN:=Rl; END; COMMENT "Tl- EXTREF"; 
BEGIN Rl:=045; BTOKEN:=Ri; END; COMMENT ”78- FIELD"; 

BEGIN Rir: = C28; BTOKEN: = Rl; END; COMMENT "79- FIXED"; 

BEGIN Rl:=029; BTOKEN:=Rl; END; COMMENT "8C- FLOAT"; 

BEGIN R13=GC87; TQKEN:=R1; END; COMMENT "81- FCR"; 

BEGIN Ri:=041; BTOKEN:=Ri; END; COMMENT "82- FORMAT"; 
BEGIN Rl:=0024; TOKEN:=Ri; END; COMMiENT "82- FROM"; 



=Rl; 


SETd CISL6L) 


; ENC ; CCMMENT "86 


= R i; 


END; 


CCMMENT 


"67- IF"; 


= Rl; 


END; 


CCMMENT 


"88- INPUT"; 


= Ri; 


END; 


CCMMENT 


"89- INTEGER"; 


= Rl; 


END; 


CCMMENT 


"9C- INTO"; 


= Ri; 


ENC; 


CCMMENT 


"91- INDIRCT"; 


=Rl; 

_C0" 


END; 

* 


CCMMENT 


"92- ITEM_/iREA"; 



NLLL ; 

BEGIN COMMENT "85- FUNCTION"; 

Rl:-Oil; BTOKEN:=Pr; 

SET(BENDIT); 

R15:=BANAL6ASE; 

BALR(R^,R15); 

R15:=^SCANbAS£; 

RESET! EENCIT); RESET ( ENDIT ) ; 

Rl:=Ouii; TOKEN:=Rl; COMMENT TOKEN FOR 
R4: = RTRNTOANAL ; 

ENC; 

BEGIN Ri: = CC93; TOKEN:=Rl; S ET ( I C I S L6L ) ; 
BEGIN Rl:=C034; TQKEN:=Ri; END; COMMENT 
BEGIN Ri:=0096; TOKEN:=Rl; END; COMMENT 
BEGIN Ri : = 027; BTOKEN: = Rl; END; COMMENT 
BEGIN Ri:=0103; TQKEN:=R1; END; COMMENT 
BEGIN Ri:=043; BTGKEN:=Ri; ENC; COMMENT 
BEGIN Ri:=046; BTGKEN:=R1; END; CCMMENT 
BEGIN COMMENT "93- LCC CO"; 

PI : = 02 l; eTOK£N: = Ri;” 

Ri5: = H/»NALbASE; 

EALR(R4,R15I ; 

P15:=SCANBASE; 

RESET! ENDIT ) ; R E SE T ( B END I T ) ; 

Rl:=0010; TOKEN:==Rl; CCMMENT TOKEN FOR 

r^:=rtrntcanal; 

ENC ; 

BEGIN Ri:=0073; TOKEN:=Rl; ENC; CCMMENT 
BEGIN Rl:=0058; TOKEN:=Rl; ENC; CCMMENT 
BEGIN RI:=0U48; TOKEN:=RL; END; COMMENT 
BEGIN Rl: = 01U8; TCK£N: = R1;' ENC; COMMENT 
BEGIN Rt;=0C72; TOKEN;=Ri; ENC; COMMENT 
BEGIN Rl:=0053; TOKEN:=Rl; END; CCMMENT 
BEGIN Rl:=C028; TGKEN:=R1; ENC; COMMENT 
BEGIN Rl:=0104; TOKEN:=RL; END; CCMMENT 
BEGIN Ri : = 0098 ; TOKEN:=Ri; ENC; COMMENT 
BEGIN Rl : = 032; BTOKEN: = Ri; END; CCMMENT 
BEGIN Ri:=0101; TOKEN:=Ri; END; COMMENT 
BEGIN Rl:=0105; TOKEN:=Rl; ENC; CCMMENT 



<SUE_ROUTINE DECO ; 



<LOCAL DATA DECO ; 



BEGIN 


Ri 


= 0073 


TOKEN 


= R1 


ENC; 


BEGIN 


Rl 


= 0058 


TOKEN 


= R1 


ENC; 


BEGIN 


Rl 


= 0048 


TOKEN 


= R L 


END; 


BEGIN 


Rl 


= 0108 


TOKEN 


= R1 


ENC; 


BEGIN 


R t 


= 0072 


TOKEN 


= Ri 


ENC; 


BEGIN 


Rl 


= 0053 


TOKEN 


= R1 


END; 


BEGIN 


Rl 


= 0028 


TOKEN 


= R1 


ENC; 


BEG IN 


R 1 


= 0104 


TOKEN 


= K L 


END; 


BEGIN 


Ri 


= 0098 


TOKEN 


= Ri 


ENC; 


BEGIN 


Rl 


= 032; 


BTOKEN 


= Ri 


end; 


BEGIN 


Ri 


= 0101 


TOKEN 


= R i 


end; 


BEGIN 


Rl 


=0105? 


TOKEN 


= R1 


ENC; 


BEGIN 


COMMENT ' 


•106- PkCCEOURE"; 



"9^- NOT"; 

"95- NCTL"; 

"98- NLMBER"; 
"97- OCM"; 

"98- CR"; 

"99- CRL"; 

"100- CF" ; 

"ICl- CUTCF"; 
"1C2- OUTPUT"; 
"1C3- OVERLAY"; 
"IC^- PACKIN'"; 
"1C5- PRINT"; 



RI:=0U5; BTOKEN:=Rl; 




00 

VJl 



SET(3ENDIT); 

R15: = e>aN^LBASE; 
e/^LR(S4,R15 ) ; 

R15:=SCANBASE; ■ 

RESETC BENDIT J ; RESET(ENDIT) 



CCMMENT TCKEN FOR 



<SUE^ROUTINE 



= R1 
= Ri 
= R I 
= R1 
= Ri 



E1\C; CCi^MENT 
ENC; CEM^EMT 
END; COMMENT 
SET(I CISLBL) 
END; CCMMENT 



”IC7- 
»1C8» 
•»IC9- 
END ; 
" 111 - 



PNCH" ; 

READ"; 

REM"; 

COMMENT 

RETURN" 



i; SET(IDISLBL); END; CCMMENT " 1 12-RETUR NTC" ; 
=RI; END; COMMENT "113- SEARCH"; 



"115- 

"116- 

"117- 

"118- 

"119- 



SHLL" ; 
SHRL" ; 
STEP"; 
SUBChAR" 
SYSTEM"; 



Pl:=0011; TQKEN:=R1 
R4 :=RTRNTCANAL; 

END ; 

BEGIN R1:=0106; TOKEN 
BEGIN R1 : = 01C7; TOKEN 
BEGIN Rl:=0Q43; TOKEN 
BEGIN Ri:=009l; TOKEN 
BEGIN Ri:=0C17; TOKEN 
BEGIN Rl:=0092; TOKEN:=R 
BEGIN R1 : = CC86; TOKEN 
NULL ; 

BEGIN Rl:=0054; T0KEN:=R1; END; CCMMENT 
BEGIN R1 :=CG55; TOK£N:=Rl; END; CCMMENT 
BEGIN Ri:=.C025; T0KEN: = R1; END; COMMENT 
BEGIN Rl:=0065; T0K£N:=R1; END; CEMMENT 
BEGIN Rl:=Q002; T0KEN:=R1; END; CCMMENT 
BEGIN COMMENT "120- SYS_DD" ; 

MVCd jPREFIXIO) ,"00") ; 

Ri:=02C; BTQKEN:=Ri; 

R15:=eANALBASE; 

BALR(R4,Ri5) ; 

R15:^=SCAN6ASE; 

RESET ( ENCIT ) ; RES ET ( B END I T ) ; 

R1:=00C6; T0KEN:=RI; COMMENT TCKEN FOR <SYS DATA CECL> 
B^: = RTRNTOANAL ; 

END; 

BEGIN COMMENT "121- SYS.PROC"; 

R l: = BLKCTR+l; 6LKCTR:=R1; 

CVD(Ri jCCNWGRK) ; 

LNPK(3,7,TEMPREFIX(0) ,CCNlrjCRK) 

MVC( I, PREFIX! 0) ,TEMPREF IX( 21) ; 

Rl:=0008; TCKEN := R1 ; 

END ; 

BEGIN COMMENT "122- SYS_PR0C R"; 

R1 :=BLKCTR+l; BLKCTR:=R1; 

CVD(RI iCONUORKJ ; 

UNPK( 3,7,TEMPREF IX(0),C0NW0RK I 
MVC(1,PREFIX{0) ,TEMPREFIX(2)) ; 

Rl:=0GC9; TOKEN:=Rl; 



DECO 



"110- RESUME" 



SETZGNE(TEMPPEFIX(3)) 



SETZ0NE(TEMPREFIX(3) } 



END; 

BEGIN Rl:=047; STOKEN:=Rl; END; CCMMENT "123- SUBTABLE"; 

BEGIN Ri:=031; BTOKEN:=Rl; END; CCMMENT "124- CHAR"; 

BEGIN Ri:=033; BT0KEN:=R1; END; COMMENT "125- STATUS"; 
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=0038; TOKEN 


= R1 


ENC; 


COMMENT 


II 


=0085; TOKEN 


= R1 


ENC 


COMMENT 


II 


=040; BTQKEN 


= Rl; 


ENC 


COMMENT 


It 


=044; BTQKEN 


=R1 


END 


COMMENT 


II 


=0015; TOKEN 


= R1 


END 


COMMENT 


II 


=0026; TOKEN 


= R1, 


ENC 


COMMENT 


It 


=0035; TOKEN 


= R1 


END 


COMMENT 


II 


=0102; TOKEN 


= R1 


ENC 


COMMENT 


II 


=0021; TOKEN 


= R1. 


ENC; 


COMMENT 


II 


=026; BTQKEN 


= R 1 


ENC 


COMMENT 


II 


=0032; TOKEN 


= R1, 


ENC 


COMMENT 


II 



BEGIN Ri 
BEGIN R1 
BEGIN R1 
BEGIN R1 
BEGIN R1 
BEGIN Ri 
BEGIN Rl 
BEGIN Rl 
BEGIN Rl 
BEGIN Rl 
BEGIN Rl 
BEGIN 

BEGIN 



BEGIN Rl:=0037; TOKEN:= 
BEGIN Rl:=0C18; TOKEN:= 
NULL ; 

BEGIN Rl:=0094; TGKEN:= 
BEGIN Rl: = C095; TOKEN: 
BEGIN Rl;=0052; TOKEN 
BEGIN Ri:=CC5i; TOKEN 
BEGIN Rl:=0C2C; TOKEN 
BEGIN Ri:=Cu75; TOKEN 
BEGIN IU: = G075; TOKEN 
ENC; COMMENT END OF CASE 
ENC; 

LM(RC,R3,5AVERJ ; 

ENC; CCMMENT END OF SCAN; 



Rl:- 



126- SET"; 

127- SWAP"; 
123- TAG" ; 
129- TABLE" 
13C- TO"; 

121- THRU"; 

122- THEN"; 

123- LNPCK" 
134- VARY"; 

125- VRBL"; 

126- WHILE" 
033; BTOKEN:=Fl; END; 



Rl; 

Rl; 



Rl:=037; BTOKEN:=Rl; ENC; 



ENC; COMMENT "129- 
ENC; COMMENT "14C- 



CCMIMENT "137 
FALSE 
COMMENT "138 
TRUE"; 

COBEGIN"; 

CCEND"; 



Rl; ENC; COMMENT "142- RESERVE"; 
=Rl; END; COMMENT "143-WAIT"; 

COMMENT "144^ CCRAD" ; 
COMMENT "145- COUNT"; 
COMMENT "146- STOP"; 
COMMENT "147- INTERRUPT"; 
COMMENT "148- SUBSCRPT"; 
STATEMENT; 



: = Rl; 


END; 


:=R1 ; 


END; 


:=Rl; 


END ; 


:=R1; 


end; 


:=Rl; 


END; 



FROCEDURf. SYNTHESIZE! R4) ; COMMENT IT HANDLES THE SEMANTICS OF THE 

MAIN GRAMMAR; 

BEGIN ARRAY 5 INTEGER SAVEREGS; ST M ( RC , R4 , S A V E F EGS ) ; 

R2 : = PRODNUM ; 

CVO (R2 jCCNWORK) ; UNPK ( 3 » 7 , W EU F ( 12 ) » CCNWCRK ) ; S ET ZON E I W BU F ( 1 5 ) ) ; 

MVC( 7, W6UF ,"PROO NO."); 

R0:=5WEUF; WRITE; MVC ( 25, W EUF, BLANK ) ; 

COMMENT CASE R2 OF 
BEGIN 

236 CASES (ONE PER PRODUCTION PLUS CNE MORE) 

END; 

LM(R0,R4, SAVEREGS) ; 

ENC; COMMENT END OF SYNTHESIZE; 

GLOEAL PROCEDURE BS YNTHTWO ( R4 ) ; COMMENT CONTINUATION CF BSYNTHESIZE 

(CASES 64 THRU 97) ; 

BEGIN ARRAY 7 INTEGER SAVEREGS; ST M ( PC , R6 , S A V E F EGS ) ; 




R2:=BPR0CNUM; 

STARTBSVN: 

P2:=R2-63; 

C/^SE R2 CF 
BEGIN 

BEGIN COMMENT 64- <FORMAT DECL HEAD> : : =FORMAT <1C> (<ChAR CCNSTANT>, 
Bl:=eSP-3; Rl:=Rl SHLL 1; 

R2 :=R10+BPTRSTACK+Rl; 

LH(Rl,B2) ; R3: = SEM^BASE+Rl; 

R0:=4b; STC(RO,B3J ; 

R2:=R2-2; STH(R1,B2) ; 

P2:=R2+6; LH(R1,B2) ; 

R2 :=CTBASE + R1 ; IC(Ri,E2); R1: = R1 AND ^?FF ; 

IF RI-^=#1 THEN BEGIN RO: = 15; XR:=RC; ERRCF; END 
ELSE BEGIN 

F2:=R2+l; IC(R1,E2J; 

R2:=RIC+DESCR6UF; STC(R1,B2J ; 

RO:=l; DPTR:=RO; 

END; 

END ; 

nlll; 

BEGIN COMMENT 66 .-<DSCRL I ST hD>:: = <REAL CONST> ( ; 

Rl:=BSP-i; Ri:=Rl SHLL 1; 

R2 :=R10+EPTRSTACK+R1 ; LH(R1,B2); 

NWC; R3:=#8000 OR Ri; 

PI : = CPTR; R2 : =R10 + CESCRBUF+R 1 ; 

R^:=R3 SHRL 8; STC(RA,B2)l 
P2i = R2-»-l; STC(R3»B2); 

Rl:=Rl+2; DFTR-=Rl; 

END ; 

NLLL; NULL; 



BEGIN COMMENT 6S-.-<REPTN GRQUP> : : =<DSCRLI ST> ) 

R1:=DPTR; P2:=RlO-*-CESCRBUF-HRl; 

R5 : = #AO; STC( R3,B2) ; 

Rl:=Rl+l; DPTR;,^Rl; 

END; 

NLLL ; NULL ; 

EEGIN COMMENT 72 .-<DESCR I PTOR> : : =<R EAL CONST> <IO> <RELA CCNST> 
Rl:=BSP-l; Rl:=Rl SHLL 1; 

P2: = R10 + EPTRSTACK + Ri ; 

LH(P1,B2); Rl:=Rl AND #FFFF; CHECKID; 

IF Rl=_l THEN BEGIN RC: = 16; XR: = RC; ERRXIR; END 
ELSE BEGIN 

RC:=DPTR; R2:=R10+CESCRBUF+R0; 
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R2:=#20 OR Rl; STC(R3,B2); 

P2:=R2+l; Rl;=eSP-2; 

Rl:=Rl SHLL 1; R3 : =R10+BPTRSTACK+R1; 

Lh(Ri,B3); nwd; 

STC(R1 ,B2) ; R2: = R2 + l; 

R3:=R3+4; LH(Rl,B3i ; 

NWC; STC(R1, B2); R2:=R2+l; 

STC(R0,b2); RO;=DPTR+4; DPTR:=RO; 

ENC ; 

ENC; 

BEGIN COMMENT 73.- <D E SCR I PTOR> : : =< I D> <REAL CCNSTANT> 
Rl:=ESP-l; R1:=R1 SHLL 1; 

P2 :=R10+EPTRSTACK+R1; 

LH(R1, B2); Rl:-Ri AND ^FFFF; CHECKID-; 

IF Pl= i THEN BEGIN FO:=16; XR:=RC; ERROR; END 
ELSE BiGIN 

R0: = DPTR; R2:=R lO + DESCRBUF + RO; 

R3:=#20 OR Rl; STC(R3,E2); R2:=R2+1; 

R3:=#l; GTC(R3,B2); R2:=R2+I; 

Rl: = BSF ShLL 1; R4 : = R IC+BP TRST ACK+R 1 ; 

LH(R1,64); NWD; STC(Ri,62); R2:=R2+1; 

STC(R0,B2); R0:=DPTR't^4; OPTR:=RC; 

END; 

end; 

BEGIN COMMENT 74-<DESCR I PTOR> : :=<CHAR CONSTANT> ; 
Rl:=BSP SHLL 1; RO:-CPTR; 

R2:=R10+cPTRSTACK+Rl; 

LH(R3,B2); 

R2 :=R10+CESCRBUF-fro; 

RA:=^40; STC(R4,B21; 

R2:=R2+l; R4:=R3 SHRL 8; 

STC(R4,B2); R2:=R2+l; 

STC(R3, B2J; R0:=R0 + 3; 

DPTR :=RO ; 

END ; 

BEGIN COMMENT 75 .-< CESCR I PTOR> :: =<SL ASH LIST> ; 

Rl;=DPTR; RC:=CTR; 

R2:=R10 + DESCRBUF+R1 ; 

R3:=#60 CR RO; 

STC(R3,B2); Rl:=Rl+l; DPTR:=R1; 

END; 

BEGIN COMMENT 76-<SLASH LIST>::=/ ; 

RO:=l; CTR:=RO; 

END ; 
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BEGIN COMMENT 77-<SLASH L IST>: :=<SLASH LIST>/ ; 

RC:=CTR+l; CTR:=R0; 

end; 

BEGIN COMMENT 78.-<TA6LE CECL H E AD> : : =<TABL E CLAUSE> ) $ ; 

Rl:=CTR AND #7F; 

P2:=R10+CESCRBUF; STC(R1,B2); 

RC :=CTPTR; T6LDE SCRB : = RO ; R4 :=CT E AS E+RO-; 

R1:=DPTR+2; STC(RI,64); RA:=R4+1; 

Rl:=Ri-l; EX(R1,MVC(0,B4,B2) ); 

RC:=RO+Rl+l; CTPTR:=R0; 

R1:=TBLISTPTR; 

FCR R5:=0 STEP 2 UNTIL R1 00 
BEGIN 

R2:=aTBLIST+R5; LH(R3,B2J; 

R3:=R3 SHLL l; R2 :=DESCRPTREAS E-»R3 ; 

STH(R0,B2); 

ENC ; 

END; 

null; 

BEGIN COMMENT 80.-<TABLE C LAUS E> : : =<T ABLE HEAO ( <NUM0RTAG> ; 

Ri:=esp; catasize; 

R2 : = R10 + CESCR6UF+1 ; 

R3:=R1 SHRL 8; STC(R3,B2); 

R2:=R2+1 ; STC(RI, B2J ; 

R0:=3; DPTR:=R0; 

R0;=i; ctr:=ro; 
end; 

BEGIN COMMENT 81.-<TABLE C LAUSE> : : =I NO I RQT <TAELE HEAO ( <NUMCRTAG> 
Rl: = BSP; DATAS IZE; 

R2 :=R10+CESCRBUF; R3 : = #80; 

STC(R3,B2J; R2:=R2+l; 

R3:=R1 ShRL 8; STC(R3,B2); 

R2:=R2+l; STC(R1,B2); 

R0:=3; DPTR:=R0; 

RC;=1; CTR:^R0; 

END ; 



d t L- 1 

i'. X 

PO 

R3 

R2 

FO 



W r I I I t. I 1 I 



UATAS iZE ; 

R2:^RlO + DESCRniJF+R. 



=R1 SHRL 8; STC(R3, B2 ) ; 
=R2+1; STC(R1,B2) ; 
=R0+2; DPTR:=R0; 



=<TABLE CLALSE> 



<NUM0RTAG> 




RC:=CTR+l; CTR:=R0; 

end; 

BEGIN COMMENT 83.-<TABLE h EAO> : : =T A E L E <ID> ; 

Rl: = BSP SHLL 1; R2 : =R 10+BP TR STAC K+R 1; 

LH(R1,B2); R2:=SEMBASE+Rl; 

RO:=46; STC(R0,B2); 

R2:=aTBLIST; STH(R1,B2); 

R0:=2; TELISTPTR:=PO; 

END; 

BEGIN COMMENT 84.-<TA6LE h EAD> : : =<T A EL E H£AC> , <ID> ; 
Rli-BSP SHU l; R2: = R10+BPTRSTACK + Pl; 

LH(R1,B2); R2:=SEMBASE+Rl; 

RC :=46; STC (RO i B2 ) ; 

RO :=TBLI STPTR; R2 : =2'TBLI ST+RO; 

STh(Rl, 62); R0:=R0+2; 

TBLISTPTR: =;RO; 

END ; 

NLU; null; 

BEGIN COMMENT 87.’-<TABLE DECL>: :=<SL8TABLE CLAISE> ) $ ; 

Rl: = BSP-2; Rl:=Rl SHLL 1; 

)0 R2 : = RiO+BPTRSTACK-»-Rl; LH(R1,B2); 

O Pl:=RL SHLL 1; 

P2:=DESCPPTRBASE+R1 ; RO:=CTPTR; 

STh(R0,B2); Rl:=TBLDESCRB; 

R3:=DPTR; R2 : =R10 +DES CRBUF+R3 ; 

STH(R1, 62); R4:=CTBASE+R0; 

R5:=R3+2; 5TC(R5,B4); 

P2 :=R10 + CESCRBUF; P3: = R3 + 1 ; 

R^i;=R4+l; EX( R3, MVC ( 0, B4,B2) ) ; 

END; 

BEGIN COMMENT 88,- <FIELD DECL> : : =F I ELD <DATA TYPE> ; 

Rl: = BSP SHLL 1; R 2 : =R 1 0+BP TR STAC K+R 1 ; 

Lh(P3,B2); R2:=R2-2; STH(R3,B2); 

END; 

BEGIN COMMENT 89,-<FIEL0 D ECL> : : =< F I ELD OECL> 

Rl:=BSP>l; Rl:=Ri SHLL 1; 

P2:=R10+BPTRSTACK+R I ; LH(R3,B2); 

P3:=R3 AND #FF; 

CASE R3 CF 
BEG IN 

R0:=33; R0:=36; R0:=39; R0:=42; R0:=45; 

END ; 



<FITEM> 




R2: = R2+2 ; LH(R4, B2) ; 

Rl:=FLBPTR; R2 :=aFLCFTRSEUF+Rl ; 

R5:=R4 SFRL 8; STC(R5,B23; 

R2:=R2+l; STC(R4,B2); 
kl:=Rl+2; FLBPTR:=Rl; 

R2:=SEMBASE+R4; STC(R0,B2); 

R^: = R4 SHLi 1; R2 : =CESCRFTRE>aSE + R4 ; 

RC:=CTPTR; STH(R0,B2); 

Rl: = CPTR-l; R2: = R lO + CESCRBUF ; 

R4 :=CTBASE + RO; 

EX(R1,MVC( Q,B4,b2) ) ; 

RO:=RO+Rl+l; CTPTR:=RO; 

RC:=RO-RC; DPTR:=RO; 

END ; 

BEGIN CCMMENIT 9C.^<F I TEM> : :=< ITEM> ; 

Rl:=DPTR; R2:=R10+DESCRBUF+Rl; 

R3 :=TBLDESCRB; R4:=R3 SHRL 8; 

STC(R4,B2); R2:=R2+l; 

STC(R3,B2); Rl:=Rl+2; 

DPTR:=Ri; R2:=R2-R1; IC(R3,B2); 

R2:-R3+2; STC(R3,B2) ; 

END ; 

BEGIN COMMENT 9 1 . -< F I T EM> : :=<I D> = <REPETITICN LIST> <CCNST> J 
RC:=CTR+l; Rl:^OPTR-l; 

R2 :=R10+DESCRBUF; STC{R1,62) ; 

Rl:=Ri^5; R2:=RiO+DESCR6UF+Rl; 

R3:=RO SFRL 8; STC(R3,B2); 

R2:=R2+l; STC(RO,62); 

END ; 

BEGIN COMMENT 92 .-<RE PET IT ION LIST>::= ( ; 

Ri: = BSP-3; Rl:=^l SHLL 1; 

R2:=R10+EPTRSTACK+R1; LH(Rl,B2); 

Pl:=Pl AND #FF; 

IF Rl<4 THEN 
BEGIN 

Rl:=DATABUF; R2 : =RlO+CESCRBUF+l ; 

R3:=R1 SHRL 8; STC(R3,B2); 

R2 :=R2 + 1 ; 

STC(Rl,B2i ; R2:=R2+3; 

RC:=5; 

END ELSE 

IF Rl=5 THEN BEGIN R2 :=R10+DESCREUF+3; RO:~3; END; 

P2:=R2+2; R3:=I; 

R1 :=R1 SFRL 8; 

STCIR1,32) ; R2;=R2+l; 
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STC(R3,B2); R2:=R2+l; 

R3 :*TBLDESCRB; R1:=P3 SHRL 8; 

STC(R1,B2); R2:=R2+l; 

STC(R3tB2); R0:=R0+6; 
dptr:=ro; SET(FIRSTVAL) ; 

END; 

BEGIN COMMENT 93 .-<R EP ET IT ION L 1ST > : : =<NUMCRT A G> ( ; 

Rl: = ESP--^; Rl:=Rl SHLL 1; 

P2:=R10+£PTRSTACK+Rl; Lh(Rl,E2); 

R1 :=R1 AND #FF ; 

IF RK4 THEN 
BEGIN 

Rl:=OATABUF; R2 : =R LO+DESCRBUF+ 1 ; 

R3:=R1 SHRL 8; STC(R3,E2); R2:=R2+1; 

STC(Ri,B2); R2:=R2+3; R0:=5; 

END ELSE 

IF Rl=5 THEN BEGIN R2 : =R 10 +C ES CR BUF+3 ; R0:=2; END; 

DPTR: = RO; R2*.=R2 + 4; 

R3:=TBLD£SCRB; R1:=R3 SHRL 8; 

STC(R1 ,621 ; R2: = R2+1 ; 

STC(R3,B2) ; Rl:=BSP-l; 

CATASIZE; RO:=DPTR; 

R2 :=R10+CESCRBUF + P0+2; P3: = R1 SHRL 8; 

STC(R3,B2) ; R2:=R2+l; 

STC(Rl,62J ; R0:=R0+6; 

DPTR:=R0; SET(FIRSTVAL) ; 

END ; 

BEGIN COMMENT 94.- <REPETITION L IS T> : : = <R EP ET IT I CN LISTXCONST> , 
IF FIRSTVAL THEN 
BEGIN 

Rl:=BSP-l; Rl:=Rl SHLL 1; 

R2:=R10+EPTRSTACK+Rl; LH(RL,B2); 

R0: = DPTR-8; R2 : = R10 + DES CRBU F + RO ; R3:=R1 SHRL 8; 

STC(R3, b2); R2;=R2+l; 

STC(Rl, B2) ; RO:=RO-RO; 

CTR:^RO; RESET(FIRSTVAL) ; ' 

END ; 

RO:=CTR+l; CTR:=RO; 

END; 

BEGIN COMMENT 95 .-< IT EM_ AREA CL AUS E> : : = ITEM AREA <I0> ; 

Rl:=BSP SHLL 1; R2 : =R10+BPTRSTACK+P1 ; 

LH(R1,B2); R2:=SEMBASE+Rl; 

R0:=49; STC(R0,B2) ; 

Pi: = Rl SHLL l; R2 :=?CESCRFTR6ASE + P1 ; 

R2:=TBLDESCRB; STH(R3,B2); 




^6U 



ENC; 

BEGIN COMMENT 96,-<I TEM^AREA CLAUSE> : :=<ITEN AREA CLAUSE> , <IC> ; 

R2:==95; GOTO STARTBSYN; 

E^D; 

BEGIN COMMENT 97 .-<SUBTABLE CLAUSE >: : = SUBTAB L E <ID> ( <NUMCRTAG> ; 
Rl:=BSP-2; R1:=R1 ShLL 1; 

R2:=R10+BPTRSTACK+Rl; LH(R1,B2); 

R3:=SEMBASE+Rl; R0:=50; STC(R0,B2I; 

R2:=R2-2; STH(R1,B2); 

Rl:=BSP; DATASIZE; 

P3 :=R1 ShRL 8 ; 

R2:=R10+DESCRBUF; STC(.R3,B2) ; 

R2:=R2+l; STC(Rl,B2); 

R0:==2; DFTR: = RO; 

END; 

BEGIN COMMENT 98 .-<SU BT A BL E CL AUS E> : : =<Sl>BT A E L E CLAUSE> , <NUMORTAG> 
Rl:=BSP; DATASIZE; 

RO: = CPTR; R2: =R LO + DESCRBUF + RO ; 

P3:=R1 SHRL 8; STC(P3,B2); 

R2:=R2+l; STC(R1,B2); 

PO:=RO+2; CPTR:=R0; 

END; 

NULL ; 

END; COMMENT END OF CASE STATEMENT; 

LM(RC,R6,SAVEREGSJ ; 

END; COMMENT END OF BSYNTHTWO; 

GLOBAL PROCEDURE BSYNTHESI ZE ( R4) ; COMMENT IT FANCLES THE SEMANTICS 

OF THE DATA DECLARATIONS; 

BEGIN 

ARRAY 7 INTEGER SAVEREGS; STM (RO , R6 ,SA VERE G S ^ ; 

R2 :=6PRCCNUM; 

CVD (R2 fCONWORK) ; UNPK (3 , 7 , W BUF ( 12 J ,CONt^ORKF; S ET ZONE (W BUF ( 15 ) ) ; 

MVC( 8, WBUF,»BPROD NO."); 

RO:^a;WBUF; WRITE; MVC ( 25 , W BU F , BLANK ) ; WRITE; 

IF R2<64 THEN 
BEGIN 

STARTBSYN: 

CASE R2 OF 
BEGIN 

NULL; NULL; 

BEGIN COMMENT 3.- <SUE ROUTINE DEC L> : :=<PRGC ECURE CECL> $ ; 

Rl: = BSP-l; Rl:=Rl SHLL 1; 

P2 :=R10+BPTRSTACK+P1 ; 




LH(R3,B2); 

P3:=R3 SHLL 1; 

R2:=DESCPPTReASE+R3 ; 

R^:=CTPTR; 

STI-(R4,B2); 

R 1 2 = 4 * 

P2:=ctBASE+R4; 

STC(R1,B2); 

COMMENT HERE ADD IL TO BRANCH TO UNSPECIFIED LCCATION (AROUND PROCEDURE 
BODY) AND TC LOAD NEXT INSTRUCTION ADDRESS (ENTRY POINT TO PRCCEDLRE) 

AT LCCATION CT BAS E+CT PTR+1 (4 BYTES); 

R4:=R4+5; CTPTR:=R4; 

END; 

BEGIN COMMENT 4.- <SU E^R CUTI NE DECL> : :=<PROC DECL> <FPARM LIST> ) $ ; 
Rl2=eSP-3; Rl:=Rl SELL U 
R2:=R10+EPTRSTACK+Pl; Lh(R3, E2) ; 

R3:=R3 SHLL 1; 

R2 ;=CESCRPTREAS£ + R3 ; 

R4 :=CTPTR; STH(R4,B2); 

Rl;=CTBASE+R4; 

R2 :=DPTR-1 ; R3 : =R 10 + DES CRBU F ; 

EX(R2,MVC( C,B1,B3) ) ; 

COMMENT HERE GENERATE IL TO BRANCH TO UNSPECIFIED LOCATION (AROUND 
^ PROCEDURE BODY) AND TC LOAD NEXT INSTRUCTION ADDRESS (ENTRY POINT TO 

PROCEDURE) AT LOCATION CTBASE+CTP TR + l (4 BYTES) ; 

P4: = fl4+R2+l; CTPTR:=R4; 

RC :=RO~RC; DPTR: = RO; 

END ; 



B 



E 



EGIN COMMENT 05.- < 


SUE 


_RCUTIN 


R1 


=TYPLGTh; R3:=C 


TR; 






R2 


=RiO+CESCRbUF+R 


1 ; 


STC 


(R3, 


RC 


=DPTR-l; 








R2 


=rio+descrbuf; 


STC 


(RO 


,B2) 


R1 


=ESP-2; R1:=R1 


SEL 


L 1 




R2 


=R10+BPTRSTACK+ 


Ri; 


LH 


(R3, 


R2 


=CESCRPTREASE+R 


3; 




f ' 


R4 


=CTPTR; STH(R4, 


B2) 


f 




R1 


=CTBASE+R4; 








R2 


=R10+CESCR8UF; 








EX(RC,MVC(0»Bi,B2) 


) : 






PC: 


=RO-RC; DPTR:=R 


0 ; 







NO; 



E DECL>;:=<FUNCTICN CLAUSE> 
62) ; 

E2); R3:=R3 SELL 1; 



BEGIN COMMENT 6.- <PROCEDLRE DECL> : : ^PROCEDURE <ID> ; 
Rl:=£SP; Rl:=Ri SHLL i; 

R2 :=R10+EPTRSTACK + Rl; 




LI-(R3,B2); 

R2:=R2-2; STH(K3fB2); 

R2:=SEMBASE+R3; 
R0:=47; STC(R0,B2) ; 
END ; 



COMMENT PREPARING ST/5CK TO SAVE POINTER UPON 
REDUCTION; 



SEThEAOER 

SEThEAOER 

SEThEACER 

SETHEAOER 

SEThEAOER 

SEThEACER 

SETHEAOER 



COMMENT 


7 


COMMENT 


8 


COMMENT 


9 


COMMENT 


10 


COMMENT 


11 


COMMENT 


12 


COMMENT 


13 



<FPARM 

<FPARM 

<FPARM 

<FPARM 

<FPARM 

<FPARM 

<FPARM 



LIST>::=<IN PARMS> <OUT PARMS> <LABEL> 
LIST>::=<IN PARMS> <OUT PARMS> 
LIST>::=<IN PARMS> <LABEL PARMS> 
LIST>:;=<OUT PARMS> <LABEL PARMS> 
LIST>::=<IN FARI^S> 

LIST>::=<OUT FARMS> 

LIST>: :=<CABEL FARMS> 



BEGIN COMME-NT 14.- <IN PARMS>::= ( <VAR> ; 
RC : = l; R2:=R10+DESCRfiUF + 5; STC(RO ,E2) ; 

Rl: = eSP; R,1: = R1 SHLL l; 

R4 : = R10+EPTRSTACK + Rl ; 

LH(R3,B4) ; 

P2:=R2+l; STH(R3,62); 

RC:=8; DFTR:=R0; 

END ; 



BEGIN COMMENT 15.- <IN P ARMS>: :=< I N P ARMS> , <VAR> ; 
R2 :=R10+DESCRBUF + 5 ; 

IC(R0,B2); RO:=RO+l; STC(R0,B2); 

R1 : = BSP; R1 : = R1 SHLL 1 ; 

R2:=R10+BPTRSTACK+Ri; LH(R3,B2); 

R4:=CPTR; R2:=R10+CESCRBUF+R4 ; 

STH(R3,B2); 

R-^:=R4+2; DPTR: = R4; 

END; 

BEGIN COMMENT 16.- <OUT PARMS>::= | <VAR> ; 

R 1 I = CPT R * 

If‘p 1=0 THEN Rl:=5; COMMENT NO INPUT FARMS; 

RO: = /#4l; R2 : = R 10+DE SCRBUF+R 1 ; 

STC(R0fB2); TYPLGTH:=R1; 

R2:=R2+l; 

R3:=ESP; R3:=R3 SHLL 1; 

F5 :=R10+E FIRST ACK+R3; Lh(R4, B5) ; 

R5:=R4 SHRL 8; STC(R5,B2); 

P2:=R2+l; STC(R4, B2I ; 

Pi:=Rl+3; DFTR:=Rl; 

END ; 

BEGIN COMMENT 17.- <GUT PA RMS> : : =<GUT PARMS> , <VAR> 




Rl:=TYPLGTH; R2: =R iO+DESCRBUF+R L ; 

IC(R0,B2); RO:=RO+l; STC(R0,B2J; 

R2:=BSP; R3:=R3 SHLL 1; 

R5:=R10+EPTRSTACK+R3; LH(R4tB5) ; 

Ri;=CPTR; P2:=R10+CESCRBUF+Rl; 

R5:=R4 SHRL 8; STC(R5,B2); 

R2: = R2+l; STC(R4, B2) ; 

Rl:=Rl+2; QPTR:=Rl; 

END ; 

BEGIN COMMENT 18.- <LABEL PARMS>::= H <ID> ; 
k 1 1 =DP TR * 

IF*R1=0 THEN Rl:=5; COMMENT NO INPUT OR OUTPUT PARMS»; 

HC:=#81; R2: = R10 + DESCRBUF + Rl ; 

STC(RCtB2); TYPLGTH:=R1; 

R3:=ESP; R3:=R3 SHLL i; 

R5 :=R10+BPTRSTACK4-R3; LH(R4,B5); 

P2:=R2+l; R5:=R4 SHRL 8; 

STC(R5,62); R2:=R2+l; STC(R4,B2); 

Rl:=Rl+3; DPTR:=Rl; 

ENC ; 

BEGIN COMMENT 19.- <LABEL PARMS> : : =<LABEL PAPMS> , <IC> ; 

R I :=TYPLGTH; R2: = R lO + OESCRBUF+R 1 ; 

IC(R0,B2ii RO:=RO+l; STC(R0,E2); 

^ R3:=E$P; R2:=R3 SHLL 1; 

R5:=R10+EPTRSTACK+R3; LH(R4,B5I ; 

Rl:=DPTR; R2:=R10+DESCRBUF+R1 ; 

RE:=R4 SHRL 8; STC(R5,B2); 

R2:=R2+l; STC(R4,B2); 

Rl:=ki+2; DPTR:=R1; 

ENC ; 

BEGIN COMMENT 20.- <FLNCTICN CLAUS E> : :=<FUNCT I CN HEAO ( <VAR> 
Rl:=ESP SHLL 1; 

R2 :=R10+EPTRSTACK+Pl; 

LH(R3,B2) ; 

R0:=CPTR; TYPLGTH:=RC; RC:=R0+l; 

P2 :=R10+CESCRBUF + R0; 

R4:=R3 SHRL 8; STC(R4,B2i; 

R2;=R2+l; STC(R3,B2J; 

RC: = R0^-2; DPTk;=R0; 

RCj=1; CTR:=RCj 
ENC; 

BEGIN COMMENT 21.- <FUNCTION CLAUSE> : :=<FUNCT I CN CLALSE> , <VAR> 
Pl:=ESP SHLL 1; 

P2 : = R10+EFTRSTACK + R1 ; 
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LMR3,B2); 

PC :-CPTR; 

R2 :=R10-^CESCRBUF+R0; 

R4:=R3 ShRL 8; STC(R4,e2); 

R2:=R2+i; STC(R3,e2); 

RC:=R0+2; DPTR:=RO; 

RO:=CTR+l; CTR:=RO; 

E^D; 

BEGIN COMMENT 22.- <FUNCTION HEAD> : :=FUNCTICN <DATA TVFE> <ID> 

Di*— pcp^l* Rl*sSl ^HJI !• 

R2:=R10+ePTRSTACK+Rl; LH(R3,82); R3:=R3 ANC ^FFFF; 

CASE R3 CF 
BEGIN 

BEGIN COMMENT CASE 1.- NUMERIC FUNCTION ; 

R0:=32; FUTIL; 

END; 

BEGIN COMMENT CASE 2.- BITS FUNCTION ; 

RO:=35; futil; 

END; 

BEGIN COMMENT CASE 3.- CHARACTER FUNCTICN ; 

RO:=38; futil; 

END; 

BEGIN COMMENT CASE 4.- STATUS FUNCTION ; 

Rl,:^tSP SHIL l; 

R2: = RiO+6PTRSTACK + Ri ; LH (R3 , E2 ) ; 

R0:=41; R2:=SEMBASE+R3; STC(RCfB2); 

R2:=R10 + D£SCR6UF; IC(R1,B2); Rl:=Rl ANC J^FF; 

FOR R4:=R1 STEP _l UNTIL 1 DO 
BEGIN 

R2 : = RiO + DESCRBUF + R4 ; IC(R3,B2); 

R2:=R2+4; STC(R3,62) ; 

END; 

Rl:=CPTR+4; aPTR:=Pl; 

END; 

BEGIN COMMENT CASE 5.- BOOLEAN FUNCTION; 

Rl:=ESP SKLL i; P2 : = R 10+ EPTRS T A CK+Ri ; 

Lh( R3,B2) ; 

R0:=44; R2:=SEMBASE+R3 ; 

STC(R0,E2); R0:=5; CFTR:=RO; 

END; 

EN-C; COMMENT END OF CASE STMT; 

Rl:=6SP SHUL 1; R2 : =R10+EPTRST ACK + Pl ; 

LH(R3,B2) ; 

R2:=R2-4; STF.(R3,B2); 

END; COMMENT ENO CF CASE 22; 

NULL; NULL; NULL; NULL; NULL; NULL; NULL; NULL; 
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NULL; NULL; NULL; NULL; 



BEGIN COMMENT 35.- <CATA ELEM>: : =<VRBL DECL hEAD> <ITEM> $ ; 

Rl:=BSP-2; Rl:=Rl.SHLL 1; 

R2:=RlO+EPTRSTACK+Rl; LH(R3,B2); R3:=R3 ANC #FF; 

CASE R3 CF 
BEGIN 

R0: = 3l; R0:=-34; R0: = 37; R0: = 40; RC:=^43; 

END; 

R2:=:R2+2; LH(R.4,B2) ; 

R2:=SEMBASE+R4; STC(R0,B2); 

IF R3<5 THEN COMMENT FOP OTHER THAN BOOL VAR, LOAD DESCRIPTOR IN 

CONSTANT TABLE; 

BEGIN 

R^:=R4 SHLL 1; P2 : =DE SCRPT R EAS E+P4 ; 

PC: = CTPTR; STH(RC,B2) ; 

Rl:=DPTR-l; R2 : =RlO+DESCRBUF; 

R4:=CTBASE+R0; 

EX(RI,MVC(0,64,B2) ) ; 

RO:=RO+Rl+l; CTPTR:=PO; 

RC:=RC-R0; DPTR:=RO; 

END ; 

END; 

BEGIN COMMENT 36.-<DATA EL EM> : : =<F ORMAT OECL H E AC><D-ESCPGRCUP> ) ^ ; 

Rl:=6SP-2; Rl:=Rl SELL 1; 

R2:=R10+EPTRSTACK+Rl; 

LF(R1,B2); Rl:=Rl SHLL i; 

P2 :=CESCRFTRBAS£ + R1 ; RO:=CTPTR; 

STE(RO,B2J; R2:=CTBASE+RC; 

Rl: = CPTR ; STC(Rl,B2) ; 

R2:=R2+i; R4;=R10+C£SCREUF; 

RI: = R1-1 ; 

EX(R1,MVC(0,B2,B4) ) ; 

Rl:=DPTR; RO:=RO+Rl; CTPTR:=RO; 

RO:=RO-RC; DPTR:=RO; 

END; 

BEGIN COMMENT 37.- <TAG DECL HEAD>::=<TAG DECL HEAD> <ID> = <REAL CONS 

TANT> $ ; 

Rl:=esp -1; Rl:=Rl SELL 1; 

R2:=R10+BPTRSTACK+R 1 ; LH(R3,B2I ; 

F2:=R2-4; LE(R4,B2L; 

R2 : = SEM6ASE+R4; RO:=8; STC(R0,62); 

P4: = R4 SELL L; R2: =0ESCRPTRBASE + R4 ; 

STH(R3 ,B2) ; 

END ; 




BEGIK COMMENT 38.-<DAT/\ EL EM> : : =<T A BL E DECL HEAO <TABLE DECL> END.TAB 

LE $ ; 

Rl:=CTPTR; RO: =TBLCESCRB ; 

R2 :=CTBASE+R0; IC( P3,B2) ; 

R3:=R3 and 
R 2 : = R2 + R3-l ; 

R4:=R1 ShRL 8; STC(R4,B2); 

R2:=R2+l; STC(Rl,62)i 
R2 :=CTBAS£ + R1 ; R4: =aFLCPTRSBUF ; 

Rl:=FLBPTR ; STC(R1,B2); 

R2: = R2+l; Rl:=RL-I; 



EMR1,MVC(0,B2,B4J ) ; 

RO :=CTPTR+Ri+a; CTPTR: = R0; 
END ; 



nlll; 

BEGIN COMMENT 40.- <VRBL DECL HEAD > : : = <VRB L DECL HEAO> <ITEM> , ; 

R2:=35; GOTO STARTBSYN; 

END ; 



EEGIN COMMENT 4L.- <VREL HEAD>::=VR6L <QATA TYPE> 
Rl:=BSP SHLL t; 

P2:=R10 + EPTRSTACK + R 1 ; 

LH(P3,62); R2:=R2-2; STh(R3,B2); 

END ; 



BEGIN COMMENT 42.- <CATA TYPE> : : = I NT EGER { <REAL CONSTANT> I ; 
R 1 i=BSP— 1 * 

CAT ASIZE; *Rl:=Rl AND #3FFF; 

CATABUF:=R1; Rl:=ESF-3; RG:=Ri SHLL 1; 

R2:=R10+BPTRSTACK+R1; R0:=1; STH(R0,62); 

ENC ; 



BEGIN COMMENT 43--<DATA TYPE> : :=FI XEC < <REAL CCNST> , <REAL CO^ST> ); 
Rli=ESP— 1* ~ 

DA7ASIZE; ’r1:=R1 SHLL 7; 

R6: = #400C OR R-l ; 

Pli = ESP— 

DA7ASIZeT’rI:=-R1 ANC #7F; 

RE:=R6 or Rl; 

CATA6UF: =R6 ; 

Rl:=eSP-5; Ri:=Rl SHLL 1; 

R2:=R10 + BPTRSTACK + Rl; R0:=1; 

S7H (R0,62) ; 

END ; 

EEGIN COMMENT 44.- <OATA TYPE>: :=FLCAT ( <REAL CONST> ) ; 

R 1 :=BSP-l; 




CAT/iSIZE; Rl:=Rl AND #3FFF; 

R6:=#8000 CR R\; 

DATABUF:=R6 ; 

Rl:=?fiSP-3; R1:=R1 SHLL 1; 

R2 :=R10+ePTRSTACK+Rl; R0:=1 ; 

STh(R0,B2) ; 

ENC; 

BEGIN COMMENT 45.- <DATA TYPE>::= BITS ( <REAL CONST> ) 

Pl: = £SP-l; 

oaiasize; 

CATABUF: =R 1 ; 

Ri:=ESP-3; R1:=R1 SHLL 1; 

R2 :=R10+BPTRSTACK+R1 ; . R0:=2; 

STH(RO, B2) ; 

ENC; 

BEGIN COMMENT 46.- <DATA TYPE>::=CHAR i <RE/SL CGNST> ) ; 

R1 : = eSP-l; 

DAIASIZE ; 

CATABUF:=R I ; 

Rl:=ESP-3; R1:=R1 SHLL 1; 

R2 : = R10+BPTRSTACK+R1; R0r = 3; 

STH (RO, B2) ; 

END ; 

BEGIN COMMENT 47.- <DATA TYPE> : : = BCCLEAN ; 

Hl:=ESP SHLL 1; 

B2:=RlG+ePTRSTACK+Ri; R0:=5; 

STH(RO,B2); 

ENC; 

BEGIN COMMENT 48.- <DATA T YP E > : : =< ST ATUS CLALSE> ) ; 

Rl:=CPTR-l; R2:=R10 + DESCR6UF ; 

STC(R1,B2); 

Rl:==BSf>-l; R1:=R1 SHLL i; 

R2 : = R10 + EPTRSTACK + R1 ; RO:=4; 

STH(R0,B2) ; 

ENC ; 

BEGIN COMMENT 49.-<STATLS CLAUSE> : : =ST ATUS ( <STATUS CONST> 

Rl:=ESP SHLL 1; 

R2 :=R10 + EPTRSTACK + R1 ; LH(R3tE2); 

R4:=R3 SHLL 1; 

P2:^CESCPPTRBASE+R4i RO:=l; 

STH(RO,B2 } ; 

R2 :=RiC + DESCRBUF+2; STH(R3,62); 

P0:=4; DPTR:=Ra; 

RC:=l; CTR:=RO; 




BEGIN COMMENT 50.-<ST;iTUS CLAUSE>: ; = <STATUS CLAUSE> ♦ <STATUS CONST> 
Rl:=ESP SHLL 1; 

P2:=R10+EPTRSTACK + R1 ; Lh(R3t B21 ; 

R4:=R3 SHLL 1; 

R2: = CESCRPTR6ASE+RA ; RO:=CTR+l; CTR:=RO; 

STh(R0,.62) ; 

Rl:=DPTR; R2:=R10+DESCRBLF+R1; 

STH(R3,B2); 

Pl:=Ri+2; OFTR:=Rl; 

END ; 

BEGIN COMMENT 51.- <ITEM>::=<IC> ; 

Rl:=BSP-l; Ri:=Rl SHLL 1; 

P2: = RIO + EPTRSTACK+R l; LH(R3,B2); R2:=R3 AND j^FF; 

1 : CASE R3 CF 
BEGIN 

EEGIN COMMENT NUMERIC CONSTANT; 

Rl:=4; P2:=R10 + CESCP6UF; STC(-Rl,fi2); P2:=R2+1; 

Rlr=DATA6UF; R3:=R1 SHRL 8; 

STC(P2,E2); R2;=R2+l; 

STC( PI ,B2) ; 

RO:=5; DPTR:=RC; 

END; 

BEGIN COMMENT BITS CONSTANT; 

R3:=l; GOTO LI; 

END; 

EEGIN COMMENT CHAR CONSTANT; 

R3:=l; GOTO LI; 

ENC; 

NULL; COMMENT STATUS CONSTANT; 

NULL; COMMENT BOOL CONSTANT; 

ENC; 

END; COMMENT END OF CASE 51; 

EEGIN COMMENT 52.- < I T EM> : : =< I D> = <CONSTANT> ; 

Pl:=ESP-3; Rl:=Rl SHLL 1; 

P2:=R1C+EPTRSTACK+R i ; LH(R3,B2); R2:=R3 AND ^FF; 

IC(R4,TYPEJ; R4:=R4 AND ^FF; 

CLR(R3,R4) ; 

IF -^= THEN BEGIN RO:=14; XR:=RO; ERROR; ENC 
ELSE BEGIN 
CASE R3 CF 
EEGIN 

BEGIN COMMENT CASE U NUMERIC CONSTANT; 

Rl: = DATABUF AND if^FFFF SHRL 14; 

R2:=R2+6; LH(P3,B2); 
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R4:=CTBASE+R3; IC(P0,B4) ; 

R0:=R0 AND UFF SHRL 5; 

R5 J = R 1+3 * 

If'r1-.= r6 and R5-. = R0 then CCI^WENT illegal ASSIGNMENT; 
BEGIN R0:=14; XR:=R0; ERROR; END 
ELSE SETVRBLCSCR; 

END; 

SETVRELCSCR; comment CASE 2, BITS CONSTANT; 

SETVRBLDSCR; COMMENT CASE 3, CHAR CONSTANT; 

. BEGIN COMMENT CASE 4, STATUS CONSTANT; 

R2:=R2+6; LH(P1,B2); R3:=R1 SELL l; 

Rl: = Ri AND t^FFFF; 

R4:=DESCRPTRBASE+R3; LH(R5,BA); 

R3:=R5 SHLL 1; R4 : =RL 0+ C ES CRBU F+R3 ; Lh(R3,B4); 

R5:=R3 AND UFFFF; 

CLB(R1,R3) ; 

IF -.= THEN BEGIN R0: = 14; XR: = RO; ERRCP; END 
ELSE BEGIN 

R4:=R10+DESCRBUF+l; STC(R5,B4); 

ENC; 

END; 

BEGIN COMMENT CASE 5, BOOL CONSTANT; 

R2:=R2+6; LH(R1,B2); 

R2:=R2-4; LH{R3,B2); R3:=R2 SHLL 1; 

R2 :=DESCRPTREASE+R3; STH(Ri , E2 ) ; 

END ; 

END; COMMENT END OF CASE STMT; 

END; 

END; COMMENT END OF CASE 52. ; 

BEGIN COMMENT 53 <CCNST ANT>: :=<NUMCRT AG> ; 

Rl:=l; STC(R1,TYPE) ; 

ENC ; 

BEGIN COMMENT 54.- <CCNSTANT> : :=<B ITS CCNSTANT> ; 

Rl: = 2; STC(R1,TYPE) ; 

END ; 

BEGIN COMMENT 55.- <CGNSTANT>: :=<CHAR CONSTANT> ; 

Rl:=3; STC( RlfTYPE) ; 

END ; 

cEGIN COMMENT 56.- <CCNSTANT>: :=<STATUS CONSTANT> ; 

Ri:=4; STC(kl,TYPE) ; 

ENC ; 

BEGIN COMMENT 57.- <CCNSTANT> : :=<BCCL CONSTANTS ; 

Rl: = 5; STC(R1,TYPE ) ; 
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BEGIN COMMENT 58.- <BQGL CGNSTANT> : :*TRUE 
Ri:=6SP SHLL 1; . 

R2 : = R10+BPTRSTACK+Rl; 

R3:-l; STH(R3,B2) ; 

END; 

BEGIN COMMENT 59.- <BOOL CON ST ANT> : : = FAL$E 
R1.: = BSP SHLL 1; 

R2:=R10+BPTRSTACK+Rl; 

R3:==R3-Rj; STH(R3,E2); 

end; 

BEGIN COMMENT 60.- <NUMORTAG> : : = <‘RA6> 

R1 :=ESP SHLL 1; 

R2:-R10+BPTRSTACK + FL1 ; 

LH(R3,B2); R3:=R3 SHLL 1; 

R^ ; = DcSCRPTR6ASE + R3 ; LH( R3 ,B4) ; 

STH (R3, B2I ; 

end; 



fU 

o 



null; NULL; 

BEGIN COMMENT 63.- <TAG CECL HEAD>::=<TAG OECL HEAD> <ID> 

R2:=37; GOTO STARTBSYN; 

END; 



<REAL CONS 
TANT> , ; 



ENC; COMMENT END CF CASE STMT; 
END ELSE BSVNTHTWO; 

LM (R0,R6 tSAVEREGS ) ; 

END; COMMENT END OF ESYNThESIZE; 



GLCEAL PROCEDURE ANALYZE(R4); COMMENT THIS IS THE SLR(l) PARSER FOR THE 

MAIN GRAMMAR (DYNAMIC STATEMENTS); 

BEGIN ARRAY 8 INTEGER SAVEREGS; 

INTEGER NEXTSYMBCL; 

ARkAY 150 INTEGER STATESTACK = 150(0); 

INTEGER STATENUM =0, LASYMBCL = 0; 

PRCCEOURE PUSHANDREAD (R4) ; 

BEGIN INTEGER SAVE4; 

SAVE4 := R4; R1 := SP; 

IF R1 < 150 THEN 
BEGIN 
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R1 := R1 + 1; SP := Rl; 

R1: = R1 SHLL 1; 

R4:=PQINTER; 

R2:=R10+PTRSTACK4R1 ; 

STH(R4,B2) ; 

END ELSE 
BEGIN 

R4:=3; XR:=R4; ERRCP; 

END; 

Rl := TCKEN; NEXTSYMECL := Rl; 

R4:=aANAL VZE ; 

R4 R4 + #7C; 

RTRNTQANAL;=;R4; 

SCAN; 

R4:=SAVE4; 

END; COMMENT END PUSHANCREAD; 

INTEGER CYCLECNT = 0; STM ( RO , R7 ,S A V ER EGS ) ; 

WHILE TRUE DO 
BEGIN 

R.1 := CYCLECNT + 1; CYCLECNT := Rl; 

Rl := SP SHLL 2; R2 := STA TESTAC K ( R 1 ) SHRL 8 + 1; 

CASE R2 OF 

BEGIN 

COMMENT CASE 1, READ VIA LINEAR SEARCH; 

BEGIN 

PUSHANCREAD; Rl : = STATENUM SELL 1; 

R2 := AREADSTART; 

R4 := SEGBASE + SEGTABLE(R21 + Rl; LH(R2,BA) 
Rl := Rl SHRL 1; R5 := ARCNUN; 

R4 := SEGBASE + SEGTABLE(R5) + PI; 

IC(R3,B4); R3 := P2 AND MASK; 

R3 := R3 + R2; R4 := NEXTSYNBCL; 

R5 := ASYMLIST; 

R6 := SEGBASE + SEGTABLE(RB) 4 R2; IC(R5,B6) 
R5 := R5 AND MASK; 

WHILE R4 -1= R5 AND R2 < R3 CG 
BEGIN 

R2 := R2 + l; P6 := R6 + 1; IC(R5»B6); 

END ; 

R2 := R2 SHLL 1; 

R4 := ASTATELIST; 

R3 := SEGBASE + SEGTABLE(RA) 4 R2; 

LH(R1,B3); Rl := Rl AND MASKFFFF; 

R2 SP SHLL 2; STATESTACK (R2) := Rl; 

Rl := Rl AND MASK; STATENUM := Rl; 

END; 

COMMENT CASE 2, READ VIA AN ARRAY ACCESSS; 







BEGIN 

PUSHANCREAD; R1 := STATENUN SUL 1; 

R2 := AREADSTART; 

R3 := SEGBASE + SEGTABLE(R2) 4 Rl; LH(R2,B3i; 
R2 := R2 + NEXTSY/^BCL SHLL l; Rl := ASTAT6LIST 
R3 := SEGBASE + SEGTABLEIRl) + R2 ; LH(R1,B3); 
Rl := Rl AND NASKFFFF; 

R2 := SP SHLL 2; S T A TESTAC K ( P 2 ) := PI; 

Rl := Rl AND MASK; STATENUM := Rl; 

END; 

COMMENT CASE 3, REDUCE; 

BEGIN 

Rl := STATENUM; PPCCNUM := PI; SYNTHESIZE; 

Rl := STATENUM; R2 := ANUMTCPCP; 

R3 := SEGBASE + SEGTABLE(R2I 4 Rl; 

IC(R2,63) ; 

R2 := R2 AND MASK; P3 := SP ^ R2; SP := R3; 

Rl := Rl SHLL 1; R2 := ARECUCESUCC; 

R3 := SEGBASE 4 SEGTABLE(R2) 4 Rl; LH(R2,B3); 
Rl := SP SHLL 2; ST ATESTACK { R 1) := R2; 

R2 := R2 AND MASK; STATENUM R2 ; 

END; 

COMMENT CASE 4, LOOK AHEAD (CPCINARY); 

BEGIN 

Rl := TOKEN; LASYMBCL := Rl; R2 := Rl SHRL 3; 
R5 := STATENUM LATAESIZE 4 R2 ; 

R3 := Rl AND MASK7; R4 := 7 - R3 ; 

R3 := ALATABLE; 

R6 := SEGBASE 4 SEGTABLE(R3) 4 R5; IC(R1,B6); 
Rl := Rl AND MASK SHRL R4 AND MASKl; 

IF Rl = 1 THEN 
BEGIN 

Rl := STATENUM SHLL 1; 

R2 := ASUCCSTATE; 

R3 := SEGBASE 4 SEGTABLE(R2) + Rl; 
LH(R2,63J; 

END ELSE 
BEGIN 

Rl := STATENUM SHLL 1; 

R2 := AFAILSTATE; 

R3 := SEGBASE 4 SEGTABLE(P2) 4 Rl; 

LH(R2, E3) ; 

END; 

R2 := R2 AND MASKFFFF; Rl SP SHLL 2; 

ST ATESTACKIR 1 } := R2; R2 := R2 AND MASK; 
STATENUM := R2; 

END; 

COMMENT CASE 5, LOOK AHEAD (FOR A PRODUCTION 
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WITH AN EMPTY PTGHT FART); 

BEGIN 

R1 := TOKEN; LASYMECL := Rl; R2 := R1 SHRL 3; 

R5 STATENUM - LATA8SIZE + R2 ; 

R3 := Rl AND MASK?; R-'i := 7 - R3; 

R3 := ALATABIE; 

R4 := SEGBASE + SEGTABLE(R3) + R5; IC(Rl,e4); 

Rl := Rl AND MASK SHRL R4 AND MASKl; 

IF Rl = 1 THEN 
. BEGIN 

Rl := SP SHLL 2; 

R2 := STATESTACK(Rl) SHRL 6; 

WHILE R2 = 2 OR R2 = 4 DC 
BEGIN 

R3 := STATESTACK(R1 J ANC PASK SHLL 1; 

R4 := AFAILSTATE; 

R5 := SEGBASE + SEGTAELE(R4) + R3; 
LH(R4,B5); 

STATESTACKI Rl) := R4; 

R2 := R4 SHRL 8; 

END; 

Rl SP + l; SP := Rl; 

Rl := STATENUM SELL l; 

R2 := ASUCCSTATE; 

R2 SEGBASE + SE6TABLE(R2) + Rl; LH(R2,B3); 
END ELSE 
BEGIN 

Rl := STATENUM SHLL 1; 

R2 := AFAILSTATE; 

R3 := SEGBASE + SEGTA6LE(P2) + Rl; LH(R2,63); 
END ; 

Rl := SP SHLL 2; ST A T ESTACK ( R 1 ) := R2; 

R2 R2 AND MASK; STATENUM := R2; 

END; 

COMMENT CASE 6, LOOK BACK; 

BEGIN 

Rl := SP - 1 SHLL 2; R2 STATENUM; 

R3 := AL8START; 

R4 := SEGBASE + SEGTABLE(R3) + R2; IC(R3,E4); 

R3 := R3 AND MASK; 

R4 := ALBNUM; 

R5 ;= SEGBASE + SEGTABLEIR4) + R2; IC(R4,B5); 

R4 ;= R4 AND MASK + R3; 

R3 := R3 SHLL 1 ; R5 := ALBSTATE; 

R7 := SEGBASE + SEGTABL£(R5) + R3; 

LH(R5,B7); 

R6 := STATESTACK( Rl) ; R3 := P3 SHRL 1; 

WHILE R6 -1= R5 AND R3 < R4 DC 
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BEGIN 

R2 := R3 + 1 SHU U R5 := ALBSTATE; 

R7 := SEGBASE + SEGTA6LE(R5) + R3; LH(R5,B7); 

, R3 := R3 SHRL i; 

end; 

R3 := R3 SHLL 1; PI := ARESUMSTATE; 

R7 := SEGBASE + S EC-TA3LE ( R1 ) + R3 ; LH(P1,E7); 

R2 := SP SHLL 2; S TA TE STA CK ( R 2 ) := Rl; 

R1 := Rl AND RASK; STATENUI^ := Rl; 

END; 

COMMENT CASE 7, ERROR; 

BEGIN INTEGER PREVERRCYCLE = #FFFFFFFF; 

RO ;= <2W6UF; VvRITE; 

Rl := CYCLECNT - 2; CYCLECNT := Rl; 

IF Rl -1= PREVERRCYCLE THEN 
BEGIN 

PREVERRCYCLE := Pi; Rl := SP - 1 SHLL 2; 

R2 := STATESTACK(Rl) ; 

IF R2 < 512 THEN 
BEGIN 

R2 := R2 AND MASK; 

R3 ;= ASYMBEFCREREAD; 

R4 := SEGBASE + S£GTAELE(R3) + R2; 

IC(R3,34) ; 

END ELSE 
BEGIN 

R2 := STATENUN; R3 := 6 SYMBEFCR ELA; 

R4 := SEGBASE + SEGTAELE(R3) + R2; IC(R3.,B4) 

end; 

R3 := R3 AND MASK; R2 := 23; 

FCR R7 := 0 STEP 1 -UNTIL I DO 
BEGIN 

VPT := R3; FIND; Rl := LENGTH - 1; 

FOR R6 := 0 STEP 1 UNTIL Rl DO 
BEGIN 

IC(R5,BCD( R6) ) ; STC ( P 5 , W EUF ( R2 ) ); 

R2 := R2 + l; 

END; 

R2 := R2 + 2; R3 := STATENLM; 

IF R3 = 255 TFEN R3 := NEXTSYMBOL 
ELSE R3 := LASYMBOL; 

R3 := R3 AND MASK; 

END; 

R4:=4; XR:=R4; ERROR; 

MVC( 13 1, WBUFtBLANK) ; 

MVC(17,WBUF,”PARTIA1 PARSE IS: "); 

RC := aWBUF; NRITE; MVC ( 1 7 , W EUF , E L A NK ) ; 

R2 := SP - 1 SHLL 2; 
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FCR R1 := 8 STEP 4 UNTIL R2 CO 
BEGIN 

R3 := STATESTACK(Rl) ; 

IF R3 < 512 THEN 
BEGIN 

R3 := R3 AND MASK; 

R4 := ASYNEEFCRERE/iC; 

R5 SEGBASE+SEGTABLE(R4)+R3; 
IC(R4,05); 

END ELSE 
BEGIN 

R3 := R3 AND MASK ; 

R4 := BSYMEEFCRELA; 

R5 := SEG6ASE+SEGTABLE (R4) +R3; 

IC(R4t 65 ) ; 

END; 

R4 := R4 AND MASK; VP 7 := R4; FIND; 
MVC(63,W6UF (4 J,eCO) ; VvRITE; 

MVC(63,^^BUF (4) , BLANK) ; 

END; 

END; 

R1 := nextsymbgl; 

IF R1 = 1 THEN 
BEGIN 

R4:=5; XR:=R4; ERROR; 

END ELSE 
BEGIN 

VPT := Ri; find; Ri := LENGTH - 1; 

MVC( 16,WBUF,''THE INPUT SYHBCL,"); 

MVC(63 ,WBUF(20 ) , BCD) ; 

MVC( 16,WBUF{60) ^ILL BE IGNORED:**); 

RO := 2WBUF; 

WRITE; MVC(131 fWEUF, BLANK) ; 

END; 

RI := STATENUK; 

IF Ri = 255 THEN 
BEGIN 

COMMENT ERROR OCCURRED IN A READ STATE; 

RI := SP - l; SP := Ri; PI := RI SELL 2; 

R2 := STATESTACKI Ri) AND NASK; 

STATENUM R2 ; 

END ELSE 
BEGIN 

COMMENT ERROR OCCURRED IN A LOOK-AHEAD STATE 
R4 : = 2ANALYZE; 

R4 ;=R4 + #6B2; 

RTRNTGANAL:=R4 ; 

SCAN; COMMENT SKIR THE NEXT SYMBOL; 
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R1 := Rl SHLL 1; 

R2 := ASUCCSTATE; 

R4 := SEGBASE + SEGTA8LE{R2) + Rl; 

LH(R2,B4); R2 := R2 AND f^ASKFFOO; 

LH(R3,B4); R3 := R3 AND N/^SK; 

R4 := ANUMTQPOP; R5 := S EG B A SE+ S EGT ABL E ( R4 ) +R3 ; 
IC(R4,B5J; R4 R4 AND MASK; 

IF R2 = 512 AND R4 255 THEN 
Rl ;= STATENUM OR #CCCCC2C0 
ELSE Rl := STATENUM OR i*^0a000400 ; 

R2 := SP SHLL 2; STATE ST /^CK ( P2 J := Rl; 

END; 

END; COMMENT END OF CASE 7; 

BEGIN COMMENT CASE 3. EXIT; 

Rl := l; TOKEN := Rl; Rl := C; 

SP := Rl; STATEST/»CK(RI) := Rl; 

BPTRSTACK(R 1) :=R1; 

STATENUM := Rl; GCTC XXX; 

END; 

END; COMMENT END OF C A SE ( STATE T V P E ) ; 

END; COMMENT END OF WHILE BLOCK; 

XXX : LM(RC,R7,SAVEREGS) ; 

END; COMMENT END OF ANALYZE; 



GLCEAl PROCEDURE BAN AL YZE ( R4 ) ; COMMENT THIS IS THE SLR(l) PARSER FCR 

THE DATA DECLARATIONS GRAMMAR; 

BEGIN ARRAY 8 INTEGER SAVEREGS; 

INTEGER NEXTSYMBOL; 

ARRAY 150 INTEGER ST AT ESTACK^l 50 ( 0 ) ; 

INTEGER STATENUM=0, LASYMB0L=0; 

BYTE FTFLAG=^FF; COMMENT FIRST TIME PUSHANCREAD IS CALLED FTFLAG IS 

SET* ' 

INTEGER CYCLECNT=0; 

PROCEDURE PUSHANDPEAC(R4) ; 

BEGIN ARRAY 4 INTEGER SAVER; STM ( R 1 , R4 , S A V ER ) ; 

Rl: = eSF; 

IF RK15C THEN BEGIN Rl: = Kl + l; 6SP:=Rl; 

Rl;=Rl SHLL 1; 

R2:=R10+BPTRSTACK+R1 ; 

R4:=PCINTER; 

STH(R4,B2); 

END 

ELSE BEGIN R4:=3; XR:=R4; ERROR; END; 

IF FTFLAG THEN 

BEGIN Ri: = l; NEXT SYMBOL: =R 1 ; END 

ELSE begin Rl:=BTOKEN; NEXTSYM SOL :=R1 ; SCAN; END; 




ro 
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LN(R1 , P4, SAVER) ; 

END; COMMENT END OF FUSHANDREAD; 



STM (R0,R7 
SET(FTF 
FC:=R0-R0 
NhllE TRU 
BEGIN 
R 1 :=CYC 
Rl:=ESP 
CASE R2 
BEGIN 

COMMENT CASE 1. READ VIA LINEAR SEARCH; 
BEGIN 
PUS 



tSAVEREGS) ; 

LAG); 

BSP:=R0; 

E DO 

LECNT+l; CYCLECNT:=Rl; 

SHLL 2; R2:=STATESTACK(R1) SHRL 3 
CF 



i; 



HANDREAO; RE SET ( FTFLAG) ; R1:=STATENLM SHLL 1; 

R2 := AREADSTART; 

R4: =ESEGBASE+BSEGTABLE( R2 ) + Ri ; LHIR2 , E4 ) ; 

R1 := R1 SHRL 1; R5 := ARDNLM; 

R4: = ESEGBASE + BSEGTABLE(R5 ) + R 1 ; 

IC(R3,64); R3 := R3 AND MASK; 

R3 := R3 + R2; R4 NEXTSYMBCL; 

R5 ASYMLIST* 

R6: = 6SEGBASE+BSEGTABLE(R5) + R2; IC(R6 , E6 ) ; 

R5 : = R5 AND MASK ; 

WHILE R4 -n= R5 AND R2 < R3 CO 
BEGIN 

R2 := R2 + l; RE := R6 + 1; IC(R5,B6); 
END; 

R2 := R2 SHLL 1; 

R4 := ASTATELIST; 

R3: = ES£GBASE + BS EGTABLEIR4 )+R2 ; 

LH(R1,B3); R1 := R1 AND MASKFFFF; 

R2 :=BSP SHLL 2; STATESTACK ( R 2 ) := Rl; 

R1 := Rl AND MASK; STATENUM := Rl; 

END; 

COMMENT CASE 2, READ VIA AN ARRAY ACCESSS; 
BEGIN 

PUSHANDREAD; Rl := STATENUM SELL 1; 



R2 
R3 
R2 
R3 
Rl 
R2 
Rl 
END; 
COMMENT 
BEGIN 



= AREADSTART; 

= BSEGBAS£ + BS EGTABLE ( R2 ) 



+ Rl; LH (R2 , E3 ) ; 



= R2 + NEXTSYMBCL SHLL 1; Rl := ASTATELIST 
= BSEGBASE +bS EGT ABLE! R i ) -* R2; LH(R1,B3); 

= Rl AND MASKFFFF; 

=BSP SHLL 2; STATE3TACK(R2) := Rl; 

= Rl AND MASK; STATENUM := Rl; 

CASE 3, REDUCE; 
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R1 := STATENU^^;6PRCC^UM := P 1 ;BSYNThES IZE ; 

R1 := STATENUM; R2 := ANUMTCFCF; 

R3 :=£SEGBASE +BS EGTA6LE ( R2 ) 4 Rl; 

IC(R2,B3); 

R2 : = R2 AND MASK; R3 :=BSP - R2;BSP := R3; 
Ri := Rl SHLL 1; R2 := AR ECLC E SGCC ; 

R3 :=eSEGBASE +BS EGT A6LE( R2 ) 4 Rl; LH(R2,B3) 
Rl :=eSP SHLL 2; STATESTACK ( R i ) := R2; 

R2 := R2 AND MASK; STATENUM := R2; 



END; 
COMMENT 
BEGIN 
Rl 
R5 
R3 
R3 
R6 
Rl 



CASE 4, LOOK AHEAD (ORDINARY).; 



=BTOKEN; LASYMBCL := Rl; R2 := Rl SHRL 3 
= STATENUM '-i<BL AT AbS IZ E 4 R2 ; 

= Rl AND MASK7; R4 := 7 - R3; 

= ALATABLE; 

= ESEGBASE 4BS EGT ABL E ( R3 ) 4 R5; IC(R1tB6) 
= Rl AND MASK SHRL R4 A^C MASKl; 

IF Rl = 1 THEN 
BEGIN 

Rl := STATENUM SHLL 1; 

R2 := ASUCCSTATE; 

R3 :=6SEGBASE 4 ES EGT AB L E ( R 2 ) 4 Rl; 
LH(R2,i;i3} ; 

END ELSE 
BEGIN 

Rl ;= STATENUM SHLL 1} 

R2 := AFAILSTATE; 

R3 :=BSEGBASE 4 ES EGTAB L E ( P2 ) 4 Rl; 

. LH(R2,B3); 

END; 

R2 := R2 AND MASKFFFF; Rl :=ESP SHLL 2; 

ST ATESTACKIR I ] := R2; R2 := R2 AND MASK; 
STATENUM := R2 ; 



END; 

COMMENT CASE 5t LOOK AHEAD (FOR A PRODUCTION 



l^ITH AN EMPTY RIGHT FART); 



BEGIN 








Rl 


:=ET0KEN; LASYMBOL := Rl; 


R2 : = 


Rl SHRL 3 


R5 


:= STATENUM >^^BL AT A ES IZ E 4 


F2; 




R3 


:= R 1 AND MASK7; R4 := 7 ~ 


R3; 




R3 


:= ALATABLE; 






R4 


: = BSEGBASE 4BS EGTA8L.E ( R3 ) 


4 R5; 


IC(R1,E4) 


Rl 


:= Rl AND MASK SHRL R4 AND 


MASKl 


9 


IF 


Rl = 1 THEN 







BEGIN 

Rl :=BSP SHLL 2; 

R2 STATESTACK(Rl) SHRL 8; 
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WHILE R2 = 3 GP R2 = 4 DC 
BEGIN 

R3 2= STATEST/iCKLRL i AND I^ASK SELL 1; 

R4 := AFAILSTATE; 

R5 :=BSEGEASE 4BSEGT AEL E ( R4 ) + R3; 
LH(P4,B5); 

STATESTACK(Rl) := R4; 

R2 := R4 ShPL 8;. 

END; 

R 1 : = BSP + l;BSP := Rl; 

R1 := STATENUM SELL 1; 

R2 := ASUCCSTATE; 

R3 :=BSEGBA5E +B SEGTAB LE ( R 2 ) + Rl; LH(R2,B3) 
END ELSE 
BEGIN 

Rl := STATENUM SHLL 1; 

R2 := AFAILSTATE; 

R2 : = BSEGBASE + ES EGIA6L E ( P2 ) + Rl; LH(R2tB31 
END; 

Rl :=BSP SHLL 2; ST AT EST ACK ( R 1 ) := R2; 

R2 := R2 AND MASK; STAIENLM := P2; 

END; 

COMMENT CASE 6, LOCK BACK; 

BEGIN 

Rl ;=esp - i SHLL 2; R2 := STATENUM; 

R3 ALBSTART; 

R4 :=eSEGBASE +B S EGT ABLE ( R3 i + R2; IC{P3^E4}; 

R3 := R3 AND MASK; 

R4 := ALBNUM; 

R5 :=eSEGBASE +BSEGTABLE ( R4 ) 4 R2; IC(R4,B5); 

R4 := R4 AND MASK 4 R3; 

R3 := R3 SHLL 1; P5 := ALBSTATE; 

R7 :=eSEGBASE 4BS EGTABLE ( R 5 J 4 R3; 

LH(R5f 87} ; 

R6 := STATESTACK( Rl ) ; R3 := P3 SHRL 1; 

WHILE R6 -.= R5 AND R3 < R4 DC 
BEGIN 

R3 := R3 4 1 SHLL 1?, R5 := ALBSTATE; 

R7 :=BSEGEASE 46S EC-T ABLE( R5 ) 4 R3 ; LH(R5tB7); 

R3 := R3 SHRL 1; 

END ; 

R3 := R3 SHLL I; PI := ARESUMSTATEl 
R7 :=BSEGBASE 4BS EGT ABLE { R 1 } 4 R3 ; LH(R1,E7); 

R2 :=BSP SHLL 2; STATESTACK ( R 2 ) := Rl; 

Rl := Rl AND MASK; STATENUM := Rl; 

END; 

COMMENT CASE 7, ERROR; 

BEGIN INTEGER PREVERPCYCLE = ^FFFFFFFF; 







RO := WRITE; 

R1 := CYCLECNT - 2; CYCLECNT := Rl; 

IF Rl -1= PREVERRCYCLE THEN 
BEGIN 

PREVERRCYCLE := Rl; Rl :=BSP - 1 SHLL 2; 

R2 := STATESTACK(Rl); 

IF R2 < 512 THEN 
P FC I N 

R2 := R2 ANC NASK; 

R3 := ASYMBEFCREREAD; 

R4 :=BSEGeASE +6SEGTA6L E ( R3 ) + R2; 

IC(R3,64) ; 

END ELSE 
BEGIN 

R2 := STATENLN; R3 := E S YN B EFC R E L A ; 

R4 :=BSEGBASE +6 SEG T AB L E ( R3 ) + R2; IC(R3,B4) 
ENC; 

R3 := R3 AND M/iSK; R2 := 33; 

FOR R7 := 0 STEP X UNTIL 1 DC 
BEGIN 

VPT:=R3; BFINC; Rl : =L E N G TF-1 ; 

FOR R6 := 0 STEP 1 UNTIL Rl DO 
BEGIN 

IC(R5,BCD(R6n; ST C ( F5 , W EUF ( R2 )) ; 

R2 := R2 + l; 

END; 

R2 := R2 + 2; R3 STATENL'^',; 

IF R3 = 255 THEN R3 := NEXTSYKBCL 
ELSE R3 L/^SYNBOL; 

. R3 := R3 AND NASK; 

' END; 

R4:=4; XR:=R4; ERROR; 

MVC( 131, W6LF fBLANK) ; 

MVC( 17, WBUF, "PARTIAL PARSE IS: 

RO := aWBUF; WRITE; MVC ( 17 ,W EUF, BLANK ) ; 

R2 :=BSP - I SHLL 2; 

FCR Rl := 8 STEF 4 UNTIL R2 CO 
BEGIN 

R3 := STATESTACKIRU ; 

IF R3 < 512 THEN 
BEGIN 

R3 := R3 AND MASK; 

R4 := ASYMBEFOREREAC ; 

R5 := BSEGBASE + B S E GT ABLE ( R4 ) + R3 ; 
IC(R4,B5) ; 

ENC ELSE 
BEGIN 

R3 := R3 AND MASK; 







R4 := BSYl^EEFOREL/a ; 

R5: = BSEGBASE + SSEGT/iBLE (R4 ) + R3 ; 
IC(R4,B5 ) ; 

END; 

R4 := R4 AND NASK; VFT R4; BFIND; 
MVCC63, WBUF(^),8CD) ; ^RITE; 

MVC(63 , WBUF (4) , BLANK ) ; 

END; 

END; 

R1 := NEXTSYMECL; 

IF R1 = 1 THEN 
BEGIN 

R4:=5; XR:=R4; ERROR; 

END ELSE 
BEG-iN 

VPT:=Rl; BFINC; R I : = LENGTF-1 ; 

MVC( 16,W3UF ,"THE INPUT SYNECLt“); 

MVC(63, WBUF( 20 ) ,BCD) ; 

WVC(16,UBUF(60 ) ,” WILL EE IGNOREC:"); 

R C S = a WB UF ; 

WRITE; MVC(131, weUF, BLANK) ; 

END; 

R1 ;= STATENUN; 

IF Rl = 255 THEN 
BEGf i\ 

CONHENT ERROR OCCURRED IN READ STATE; 

Rl :=BSP - l;BSP := Rl ; Rl Rl SHLL 2; 

R2 := 5TATESTACK(R1) ANC HASK; 

STATENUM := R2; 

END ELSE 
BEGIN 

COMMENT ERROR OCCURRED IN A LOCK-AHEAC STATE; 
SCAN; COMMENT SKIP THE NEXT SYMBOL; 

Rl := Rl SHLL U 
R2 ;= ASUCCSTATE; 

R4 ; = ESEGEASE +BS E€TABLE( R2 ) -» Rl; 

LH(R2,B4); R2 := R2 AND NASKFFOO; 

LH(R3,B4); R3 := R3 AND MASK; 

R4 ; = ANUMTOFCP ; R5: = BSEGt AS E + BS EGT ABLE ( R4 )+R3 
IC(R4,B5); R4 R4 AND MASK; 

IF R2 = 512 AND P4 255 THEN 
Rl := STATEMiM CR #0CC0C300 
ELSE Rl := STATENUM OR ^CCCOC400; 

R2 :=fcSP SELL 2; STATEST ACK( R2 ) := Rl; 

END; 

END; COMMENT END OF CASE 7; 

BEGIN COMMENT CASE 8. EXIT; 

Rl:=l; 6TCK£N:=R1; P1:=C; 







BSP := Rl; STATESTACK(Rl) := Rl; 
PTRSTACK(R1 ) :=R1 ; 

STATENUM ;= Rl; GCTC XXX; 

END; 

END; COMMENT END CF C AS E ( STAT ETY F E ) ; 
END; COMMENT END OF ^jHILE BLOCK; 

XXX : LM(RO,R7,SAVEREGS) ; 

END; COMMENT END CF BANALYZE; 



GLOBAL PROCEDURE I N I TT V\0 ( R4 ) ; COMME NT CONTI NLAT ION OF IMTIALLIZE; 
BEGIN ARRAY 5 INTEGER SAVEREGS; ST M ( R C, R4, SAVE REGS > ; 

COMMENT PRELQAOING OF RESERVED WORDS INTO SYNBCL TABLE, AND INITIAL- 
LIZATION OF SEMAN AND STCHAIN; 

COMMENT FIRST INITIALIZATION OF SEM^N AND STCFAIN LTO 1) ; 

RZ:=SEMBASE-l; COMMENT R2 WILL HAVE ADDRESS CF SEMAN(0~T0 8?); 
R3;=STCHAINBASE-2; COMMENT R3 WILL HAVE ADDRESS CF STCHAINIO TO B?); 
R c ; ^ 1 * 

FOR Rl;=55 STEP 1 CNTIL 148 DO 
BEGIN COMMENT Rl HAS SEMANTIC VALUE; 

P2;=R2+l; STC(R1,B2); R3:=R3+2; STF(R0,B3); 

END ; 



COMMENT INITIALIZATION OF IDENTRY AND HASHTEL; 

R4;=RS; Rl;^STBASE; 

MVC(9,B1, "AES ”); R0:=0; R2:^R4+1332; STH(R0,B2M 



Ri 


:=R1 +10; MVC ( 9,B1 , "ALTC.OO 


R0: = i; 


R2 


=R4+940 


STH(RO, B2) 


PI 


= R 1 + 10 


MVC( 9,B 1, “-AND 




RC 


= 02 


B2 


=R4+2C40 


STH(R0,E2) 


Rl 


=Ri+10 


MVC(9,B1,»ANDL 


" J 


RC 


= 03 


R2 


=R4+C168 


STH(RC,B2) 


R 1 


=R1+10 


MVC( 9 ,B1 , ’'BEGIN 




PC 


=04. 


R2 


=R4+1022 


STF(R0,E2) 


R 1 


= R1 + 10 


MVC(9,Bl,”EITS 


") 


RC 


= C5 


RZ 


=R4+00CC 


STH(RC,62) 


Rl 


=Ri+i0 


MVC(9,61 , "BITSTRING 




RO 


=06 


R2 


= R4+ 1982 


STH(RO, B2) 


R 1 


=R1+10 


MVC( 9,B1,"60CLEAN 




RC 


= 07 


R2 


=R4+2162 


STH(R0,E2) 


Rl 


=P1+10 


MVC(9,B1,"-CALL 


") 


RO 


= 08 


R2 


=R4+1944 


STH(R0,B2) 


Rl 


=Ri+10 


MVC( 9,Bl ,"CASE 


") 


RO 


=09 


R2 


=R4+1378 


STH(RO, E2) 


R i 


=R1+10 


MVC(9,B1,"CAT 


"J 


RC 


= 10 


P2 


=R4+1856 


STH(R0,B2) 


R 1 


=Rl+10 


MVC(9,BI,"CIRShLL 


" ) 


RO 


= 11 


P 2 


=R4+1936 


STH(RC,B2) 


Rl 


=R1+10 


MVC(9,B1,"CIRSHRL 




RO 


= 12 


R2 


=R4+0246 


STH(RO, B2) 


R 1 


=P1+10 


MVC(9,B1,'^CHARC0DE 


") 


RC 


= 13 


R2 


=R4+19C2 


STH(RC,B2) 


Rl 


=P1+10 


MVC(9,B1 ,"CCLECHAR 


" J; 


RO 


= 14 


P 2 


-R4+a72C 


STH(RO, B2) 


R 1 


=R1+10 


MVC( 9, Bl, "DECODE 




PC 


= 15 


R2 


=R4+^092 


STH(R0,E21 


Rl 


=R1+10 


MVC(9,B1 ,"C0 




RO 


= 16 


i RZ 


= R 4 + 0 188 


STH( RC,B2) 


Rl 


=RI+10 


MVC(9,B1,"ELSE 




RO 


= 17 


F2 


=P4+0364 


STh(RO, 62) 


R 1 


=R1+10 


MVC(9,B1, "'ENCODE 




PC 


= 18 


R2 


^R4+I 166 


STH(R0,E2) 


R 1 


=R1+10 


MVC(9 ,B1 ,"ENC 


") 


PC 


= 19 


R2 


=R4+0060 


STH(RC,B2) 


R 1 


=R1+10 


MVC( 9 ,B1 , ’'END DO 




RC 


=20 


F2 


=R4+1164 


STh(R0,E2) 


R 1 


=R1+10 


MVC(9, BI, "-ENC’TABLE 


") 


RC 


= 21 


R2 


= R4+L45C 


STH( R0,B2) 
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R1 


=P1+10 


^VC(9,B1 ,«EXTREF 




RO 


=22 


R2 


=R4+1272 


STh(RC, B2) 


R1 


=R1+10 


MVC(9,BL,*‘FIELD 


") 


RC 


=23i 


P2 


=RA+ll02 


STH(R0,E2) 


Rl 


=R1+10 


I^VC(9,Blf '»-FIXEC 




RO 


= 24 


R2 


=R^+L768 


STH(R0,B2) 


R1 


=Rl+10 


MVC(9,B1 , "FLOAT 


") 


RO 


=25; 


P2 


=P4+2124 


STF(RO, B2 ) 


Rl 


=Rl+iO 


MVC( 9,B1,’‘F0R 


") 


PX 


= 26; 


R2 


=R4+t782 


STHCRO, B2) 


Rl 


=Ri+10 


i^VC(9 ,B1 ,"FCRRAT 


"1 


PC 


=27 


R2 


=R4+2394 


STh(R0,B2) 


R 1 


=R1+10 


MVC( 9,B1 ,"FRGM 




RO 


=28; 


R2 


=R4+2042 


STh(RO, E2) 


Pi 


= R1 + 10 


MVC(9,B1,'‘FL00VERLAY") ; 


RC 


= 29 




=R4+1046 


STh (RO , E2) 


Rl 


=R1+10 


r^VC(9,Bl ,"FLKC7I0N 




RO 


=30 


f! 


= R4-f 2306 


STh(RO, 62) 


R 1 


=R1+10 


MVC( 9,Bl,’'GaTO 




RC 


=3 1; 


P2 


=R4+199G 


STM(RO, E2 ) 


Rl 


=R1+10 


MVC(9,B1,'‘'IF 




RO 


=32 


P2 


=R4+1210 


STh(RO, B2) 


R 1 


=R1+10 


MVC(9,B1 ,"I^PUT 


"J 


RO 


=33; 


F2 


=R4+0610 


STFCRO, E2 ) 


R 1 


=Rl+10 


MVC(9,B1, "INTEGER 


") 


RC 


=34, 


R2 


=RA+2086 


STh(R0,B2) 


Rl 


=P1+10 


MVC(9 ,B1 , "INTO 


" J 


RO 


= 35 


R2 


=R4+C102 


SThtRC,B2)i 


R 1 


=R1+10 


MVC(9,B1,"INDIRCT 


") 


BO 


= :>6 ; 


F2 


=R4+185C 


STF(RG,E2) 


R 1 


=R1+10 


MVC(9,BL,"ITEN AREA 


") 


RC 


= 37 


R2 


=RA+1748 


STK(RC, E2) 


R 1 


=P1+10 


MVC(9,B1 ,"LCC rC 


" J 


RO 


=38. 


R2 


=84+2426 


STh(RC, E2) 


R 1 


=R1+10 


MVC(9,B1,"N0T 


") 


PQ 


=39. 


F2 


=R4+0522 


STh(RO, E21 


Ri 


=R1+10 


MVC(9,B1,"N0TL 


") 


RC 


= 40 


R2 


=RA+2428 


STH( RC,B2)^ 


Rl 


=Ri+10 


MVCl 9tBl ,"NLNBER 


"i 


BO 


=4i; 


R2 


=R4+0768 


STFtRO, 82 ) 


R 1 


=R1+10 


MVC(9,B1,'-QCM 




RC 


=42: 


P 2 


= R A + 045 8 


STH(R0,e2) 


Ri 


=P1+10 


MVC(9,B1 ,"^08 


" J 


RC 


= 43 


R 2 


=84+0958 


STH(R0,B2) 


R 1 


=R1+10 


MVC(9,B1,"CRL 


") 


RC 


=44; 


R2 


=84+1604 


STh(R0,E2) 


Rl 


= P1 + 10 


MVC(9,BL,"QF 


") 




= 45 


R2 


=84+0126 


STH(RC,B2) 


Rl 


=R1+10 


f^VC(9,Bl ,"CLTOF 


") 


RO 


=46 


P2 


=R4+09C8 


STH(RO, 62) 


R 1 


=R1+10 


MVC( 9,B1,"0LTPL'T 


") 


R.C 


=47; 


R2 


=R4+Q574 


STh(R0, B2 ) 


Rl 


=P1+10 


MVC(9, B1 , '^-OVERLAY 


") 


RO 


= 48 


R2 


= 84+2-1 12 


STH(RC,B2) 


Rl 


=R1+10 


MVC( 9,B1 ,"'FACK1N 


") 


RO 


=49; 


R2 


=84+1148 


STF(RO, B2) 


R 1 


=R1+10 


MVC(9,B1, "PRINT 


"1 


RC 


= 50 


R2 


= R A + 24 06 


STh(R0,B2) 


Rl 


=Pi+LO 


NVC(9,B1,"PRGCECURE 


") 


RC 


= 51 


R2 


=R4+1496 


STH( Ra,B2) 


R 1 


=R1+10 


MVC(9,B1,"PNCH 


"1 


RO 


=52; 


P2 


=R4+1418 


STF(R0,E2) 


R 1 


=R1+10 


MVC(9,Bl,"READ 


") 


RC 


= 53 


R2 


=R4+1S24 


STH(R0,B2) 


R 1 


=R1+10 


RVC(9,B1 , "REI^ 


" J 


RO 


=54 


R2 


=R4+209A 


STH(RO, B2 ) 


R 1 


=R1+10 


MVC(9,B1, "RESUME 


") 


RC 


= 55 


R2 


= P4 + 2.348 


STH(RG,e2) 


P 1 


=Pl+iO 


MVC(9,B1, "RETURN 




RO 


= 56 


R2 


= R A + 05 6 2 


STH( RC,B2) 


Rl 


=R1+10 


MVC( 9,Bi ,"RETURNTQ 




RO 


= 57, 


F2 


=R4+2392 


STF(RO, B2) 


R 1 


=Pl+10 


MVC( 9,B1,"^SEARCH 


") 


RC 


= 58; 


R2 


=R4+1668 


STh(R0,B2) 


Rl 


=Rl+iO 


MVC(9 ,B1 , "SELECT 


" ) 


PC 


= 59 


R2 


=8^+1922 


STH(RC,B2) 


R 1 


=Kl+10 


MVC( 9,B1 ,"SHLL 


") 


RC 


=60; 


P2 


=R4+0928 


STF(R0,B2) 


R 1 


=R1+10 


MVC( 9, BL, "ShRL 


") 


RC 


= 61 


R2 


=84+1696 


STH(RC,e2) 


Rl 


=R1+10 


9,Bi , "STEP 


" J 


RO 


=6 2 


R2 


=R4+ 1566 


STh(R0,B2) 


R 1 


=R1+10 


MVC( 9,B1 , ‘^SLBCHAR 


") 


RC 


=63 


R2 


= R4 + 0l240 


STH(RO, 62) 


PI 


=Ri+10 


MVC(9, 61, "SYSTEM 


" } 


RO 


= 64 


R2 


= R^+U282 


STH(R0,B2) 


Ri 


=R1+10 


MVC( 9 ,B1 , "-SYS DO 


") 


RO 


=65 


F2 


=RA+1 122 


STI-(R0,B2) 


R 1 


=R1+10 


MVC(9,B1,"SYS^PR0C 


") 


PX 


=66 


F2 


=R4+I5I4 


STh(R0,B2) 


Pi 


=R1+10 


MVC(9,Bi,"SYSlFRCC_ 


R" ) 


RO 


= 67 


P2 


=84+0134 


STH( RC,B2) 


Rl 


=Ri+10 


MVC( 9,Bl , '^SUBTABLE 


") 


RC 


=66; 


P2 


=84+0320 


STF(R0,B2) 


P 1 


=P1+10 


MVC(9,Bl,"CHAR 




RC 


= 69 


R2 


= R4+C^62 


STH(RC,E2) 
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Pi 


=P1+10 


MVC(9,B1 , "STATUS 


") . 


RO 


=70 


P2 


=R4+1188 


STHIRC, B2) 


PI 


=R1+10 


MVC(9,B1,"SET 


") 


RO 


=Tl; 


P2 


=RA+1356 


STH(P0,e2) 


PI 


=Rl+iO 


MVC(9,B1,"SWAP 


") 


RC 


= 72 


R2 


=RA+1C5C 


STH(RC,B2) 


R1 


=R1+10 


MVC(9,Bl ,"TAG 


") 


RC 


=73; 


P2 


=R4+0708 


STH(R0, E2) 


R1 


=Rl+lO 


MVC(9,BL, "TABLE 


") 1 


RC 


= 74; 


R2 


-R4+1098 


STH(R0,B2) 


PI 


=R1+10 


MVC(9,B1,"TC 


") 


PC 


= 75 


R2 


=R4+2330 


STH(RC, B2) 


R1 


=R1+10 


MVC( 9 ,B1 ,"THRU 


") 


RO 


=76; 


P2 


=R4+0006 


STH(R0, B2) 


R1 


= Pl+10 


MVC(9,BL,"THEN 




RC 


= 77 


R2 


=RA+2332 


STH(RC,E2) 


R 1 


=Rl+iO 


MVC(9,B1 ,"UNPCK 


") 


PO 


=78 


R2 


=R4+I422 


STHLRC, B2) 


R 1 


= R 1+10 


MVC( 9,B1,"VARY 


") 


PC 


=79, 


P2 


=R4+0672 


STH(F;0, E2) 


Pi 


=P1+10 


MVC(9 , B1 , "VREL 


") 


RC 


= S0 


P2 


=RA+0112 


STH( RC,B2) 


Ri 


=Rl+iO 


MVC( 9,B1 ,"WHI LE 


") 


PO 


=61; 


F2 


=P4+1652 


STF(RO, B2) 


P 1 


= R I+IO 


MVC(9,Bl, "FALSE 


") 


RC 


=82; 


R2 


=R4+1396 


STHIRO, B2) 


Pi 


=P1+10 


MVC(9,B1,"TRUE 


" } 


RO 


= 83 


R2 


=R4+05i0 


STh(R0,B2) 


R 1 


=Rl+iO 


MVC( 9,B1 ,"CCBEGIN 




PO 


=84; 


P2 


=R4+1462 


STFIRO, B2 ) 


P 1 


=P1+10 


MVC(9,BL,"C0ENC 


") 


RC 


= 85 


R2 


=RA+24 16 


STH(R0,E2) 


P I 


^Ri+lO 


MVC(9,B1 ,"FREE 


") 


RO 


=86 


R2 


=RA+2294 


STH(RO, B2) 


P 1 


=R1+10 


MVC( 9,B 1 , "RESERVE 


") 


RC 


= 87, 


R2 


=RA+2340 


STH(R0,E2) 


Rl 


=Ri+10 


MVC(9, B1 , "WAIT 


") 


RC 


= 88 


P2 


=R4+18C6 


STH( R0,B2) 


R 1 


=Rl+iO 


MVC(9,B1 ,"CCRAD 


") 


PO 


=89; 


P2 


=R4+23 14 


STFIRO, E2 ) 


P 1 


=Rl+IO 


MVC(9,B1, "COUNT 


") 


RC 


=90; 


R2 


=RA+0020 


STHIP.O, B2) 


Rl 


=R1+10 


MVC(9 ,B1 , "STOP 


") 


RO 


= 91 


R2 


=R4+1284 


STh(R0,B2) 


Rl 


=R1+1Q 


MVC(9,B1, "INTERRUPT 


")i 


RO 


=92; 


P2 


=R4+0042 


STF(R0, E2) 


Ri 


= Pi+10 


MVC(9,Bl,"SUBSCRPT 


") 


RC 


= 93 


R2 


=RA+0892 


STH(RC,B2) 



FCIMFREE: = RC; 

LN( RC,R4, SAVEREGS) ; 

END; CCMMENT END OF INITTWQ; 



GLOBAL PROCEDURE I N I T I AL I ZE ( R A ) ; CONSENT IT SETS UP THE 

CONDITIONS NEEDED TO START EXECUTION OF THE 
COMPILER; 

BEGIN ARRAY 5 INTEGER SAVEREGS; STM ( RO , R4 , S A V E P EGS ) ; 

PO := aWBUF; 

MVC(43, WBUF," CMS'2RS COMPI LEP VEPSICN OF JUNE 1973 ."); 
WRITE; MVC(72,WBUF, BLANK) ; WRITE; WRITE; PRINTDATE; 

PRINTIME; MVC ( 8 , WBUF , ''TjDD AY IS "); 

MVC(0,WBUF( L6) ,"2") ; 

RC :=2WBUF; 

WRITE; MVC( 131, WBUF, BLANK); WRITE; WRITE; 

COMMENT INITIAL SETUP BEFORE CALLING GETCHAR FOR THE FIRST TIME. CP 
AND CARDCCUNT ARE INITIALLIZEC IN DEC LA R AT I ONS ; 

PC:=a:CBUF; READ; 

IF LISTFLAG THEN 
EEGIN 

RO:=CARDCCUNT; CV D ( RO , CONWORK ) ; UNPK { 3, 7 , W EU F ( 15 ) , CON WORK ) ; 




SETZONE( y^BUF(18)) ; VC ( 79 , WBIF (22 ) ,CSUF) ; 

R0:-aW6UF; write; MVC( 121,WBUF»8LAKK); 

END; 

GE7CFAR; 

SEGBASE := R12 ; COMRENT SAVE BEGINNING ACCRESS OF PARSING TABLES 

FOR i^AIN GRA/^MAR; 

ESEGBASE:=RIL; COMMENT SAVE BEGINNING ADDRESS CF PARSING TABLES FOR 

DATA DECLARATIONS GRAMMAR; 

R1 := NUMTERMI NALS + I SHRL 3; 

R2 ;= NUMTERMINALS + L AND #7; 

IF R2 > 0 THEN R1 := Ri + 1; 

LATABSIZE := Rl; 

MVC(2f VSTRING( 10 ) ,"EPF" ) ; 

R 1 : = BNUMTERMINALS + 1 SHRL 3; 

R2:^BNUMTERMINALS + 1 AND #7; 

IF R2 > 0 THEN Ri : = R1 + 1 ; 

BLATA6SIZE:=Rl; 

MVC(2,BVSTRING(10 ),»EOF" ) ; 



COMMENT SETTING-UP OF SYMBOL TABLE MEMORY ALLCCATICN, BASE ADDRESSES 
ro AND LIMITS; 

GETCGRE; COMMENT GETCORE RETURNS BASE ADDRESS AND LENGTH OF MEMORY 
00 ALLOCATED TO SYMBOL TABLE; 

STBASE:=Rl; COMMENT BASE ADDRESS OF SYMBOL TABLE; 

STLENGTH:=RO; 

PG:=RO SHRL 1; COMMENT RO IS LENGTH OF IDENT DIRECTORY SECTION; 
R2:=RC+Rl; CTBASE := R2; COMMENT CONSTANT TAELE BASE ADDRESS; 

P2 • ~R2"^R0 * 

CTLIMIT:;^R2 ; COMMENT CONST. TBL. ABSOLUTE LIMIT; 

Rl:=RO; R0:=RC-R0; R1:=R1/15; COMMENT 15 BYTES PER ENTRY. ; 
STLIMIT:=Ri; COMMENT Rl HAS THE NUMBER OF ENTRIES POSSIBLE; 
R3:=R1^10; COMMENT CHUNCK ALLOCATED TO lOENTRY; 

RC:=STBASE+R3; SEMBASE:=RO; COMMENT SEMANTIC FIELD BASE ADDRESS; 

RO: =SEMBAS E + Rl; 

RC:=RC AND #FFFFFFFE+2; COMMENT THIS CONE TO GUARANTEE R3 HAS EVEN 

VALUE AND DO NOT GVERL/!P PREVIOUS ARRAY; 
STCHA INBAS E:=RO; COMMENT STCHAIN FIELD i3ASE ACCRESS; 

R2:=R1 SHLL 1; COMMENT CHUNK ALLOCATED TO STCHAIN; 

RC:=R0+R3‘ 

CESCRPTRBASE:=RO; COMMENT BASE ADDRESS OF DESCRIPTOR POINTER FIELD; 
IMTTWO ; 

MVC (9,PREFIXt"00 »J; 

R 1 :=3BANALYZE ; BANALBASE : = R1 ; 

Rl:=aSCAN; SCANBASE:=Rl; 
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L^(RC,R4,SAVEREGS) ; 

ENC; COMMENT END OF INITIALIZE; 

PROCEDURE MAIN(R4) ; 

EEGIN 

INITIALIZE; 

ANALYZE ; 

PR INTSUMMARY ; 

ENC; COMMENT END OF MAIN; 

M I N ; 

EXIT: 

MVC( 17,WBUF,»END OF C CM F.I LAT I ON*' ) ; R0:=3WBUF; URITE; 
ENC. 
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